출력 서식 지정

출력 서식 지정

PROGRAM Prin

IMPLICIT NONE

INTEGER :: Num = 3, L = 5378, Kappa = -12345
REAL :: A1 = 7.5, B1 = 0.182, C1 = 625.327
REAL :: A2 = .12345E8, B2 = .0237, C2 = 4.5E-12, D2 = -76.1684E12
REAL :: A3 = 0.3, B3 = 7.9
INTEGER :: A4 = 141

PRINT '(1X, 2I5, I7, I10)', Num, Num - 3, L, Kappa
PRINT '(1X, 2I5.2, I7, I10.7)', Num, Num - 3, L, Kappa
PRINT '(1X, 2I5.0, I7, I10)', Num, Num - 3, L, Kappa

PRINT *,

PRINT '(1X, 2F6.3, F8.2)', A1, B1, C1

PRINT *,

PRINT '(1X, 2E15.5, 2E15.4)', A2, B2, C2, D2

PRINT *,

PRINT '(1X, "X =", F6.2, " Y =", F6.2)', A3, B3
PRINT '(1X, A, F6.2, A, F6.2)', "X =", A3, " Y =", B3

PRINT *,

PRINT '(1X, A11, 3X, A4, 2X, I3)',"John Q. Doe", "CPSC", A4
PRINT '(1X, A11, T16, A4, 2X, I3)',"John Q. Doe", "CPSC", A4

PRINT '(1X, I10, 3/ 1X, 2I10, // 1X 3I10)', A4, A4, A4, A4, A4, A4

END PROGRAM Prin

위 소스를 c.f95로 저장

컴파일 및 출력 확인

PRINT '(1X, 2I5, I7, I10)', Num, Num - 3, L, Kappa
두 개의 5칸을 차지하는 정수 출력(2I5), 7칸 차지하는 정수 출력(I7), 10칸 차지하는 정수 출력(I10)

PRINT '(1X, 2I5.2, I7, I10.7)', Num, Num - 3, L, Kappa
두 개의 5칸을 차지하나 최소한 2개는 꼭 정수 출력(2I5.2), 7칸 차지하는 정수 출력(I7), 10칸 차지하는 그러나 최소 7개는 꼭 정수 출력(I10)

PRINT '(1X, 2I5.0, I7, I10)', Num, Num - 3, L, Kappa

PRINT '(1X, 2F6.3, F8.2)', A1, B1, C1
두 개의 6칸을 차지하고 소수점 아래가 3칸을 차지하는 실수 출력(2F6.3), 8칸을 차지하고 소수점 아래가 2칸을 차지하는 정수 출력

PRINT '(1X, 2E15.5, 2E15.4)', A2, B2, C2, D2
두 개의 15칸을 차지하고 유효자리수가 5개의 실수 출력(2E15.5), 2개의 15칸을 차지하고 유효자리수가 4개인 실수 출력(2E15.4)

PRINT '(1X, "X =", F6.2, " Y =", F6.2)', A3, B3
PRINT '(1X, A, F6.2, A, F6.2)', "X =", A3, " Y =", B3
문자 출력을 형식 지정에서도 할 수 있고, 변수 나열에서도 할 수 있음

PRINT '(1X, A11, 3X, A4, 2X, I3)',"John Q. Doe", "CPSC", A4
11칸을 차지하는 문자 출력(A11), 3칸의 공백(3X), 4칸의 문자 출력(A4), 2칸의 공백(2X), 3칸의 정수 출력(I3)

PRINT '(1X, A11, T16, A4, 2X, I3)',"John Q. Doe", "CPSC", A4
T16은 16칸에서 시작한다는 뜻

PRINT '(1X, I10, 3/ 1X, 2I10, // 1X 3I10)', A4, A4, A4, A4, A4, A4
3/는 세 번의 엔터를 친 효과, //은 두 번의 엔터를 친 효과