program t implicit none ! c Column number ! d Number of digits to right of decimal place for real input or output ! m Minimum number of digits to be displayed ! n Number of spaces to skip ! r Repeat count—the number of times to use a descriptor or group of descriptors ! w Field width—the number of characters to use for the input or output ! Integer: rIw or rIw.m INTEGER :: index = - 12 , junk = 4 , number = - 12345 WRITE (*, 100 ) index, junk, number 100 FORMAT (I0, 1X ,I0, 1X ,I0) !will produce the output - 12 4 - 12345 ! Real rFw.d REAL :: a = - 12.3 , b = . 123 , c = 123.456 WRITE (*, 200 ) a, b, c WRITE (*, 210 ) a, b, c 200 FORMAT ( 2F6 . 3 , F8. 3 ) !will produce the output ****** 0.123 123.456 ! Exponente rEw.d w ≥ d +7 ! expresses the number as a value between 0.1 and 1.0 times a power of 10. REAL :: a = 1.2346E6 , b = 0...