With many Fortran 77 implementations we wrote
PROGRAM TEST REAL X WRITE(*,10) 10 FORMAT('Give X = ',$) READ(*,*) X WRITE(*,*) X ENDIn Fortran 90 we use "non-advancing I/O" instead. We therefore write the following
PROGRAM TEST IMPLICIT NONE REAL X WRITE(*,'(A)',ADVANCE='NO') 'Give X = ' READ(*,*) X WRITE(*,*) X ENDBoth those programs give the same result, you may give the value of the variable on the same row as the text "Give X = ". Non-advancing I/O can not be used with list-directed I/O or on NAMELIST.
B = A(1:N, 1:N)
In some old Fortran dialects the statement TYPE was used to write on a typewriter terminal and PRINT was used to write on the line printer. The concept TYPE now has a completely new meaning in Fortran 90, to declare user-defined data types.