! ! =====> Program - P51.F90 ! CHARACTER(LEN=3) :: MONTH(12) INTEGER UNITS(12) REAL SALES(12) ! ! PRINT *, 'This is Program >> P51 - Read data into arrays' ! ! Tell program where data for READ is coming from OPEN(UNIT=5, FILE='P51.DAT') ! UNIT=5 is the default input ! ! READ 10,MONTH READ 20,UNITS READ 30,SALES 10 FORMAT(12A3) 20 FORMAT(12I5) 30 FORMAT(12F5.0) STOP END DATA: JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC 672 609 715 803 810 831 829 727 780 703 791 783 3.4 3.2 3.7 4.2 4.8 5.1 5.1 5.1 4.3 3.9 4.2 3.6 OUTPUT: Program entered This is Program >> P51 - Read data into arrays Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95