! This program calculates the area of a tank,! excluding the bottom.! The variables are assigned as follows:!! R = RADIUS! H = HEIGHT! PI = 3.14159! A = AREA!! They are declared with the REAL statement below.REALR,H,PI,A! The OPEN command associates the data file, "PANDAT.DAT",! in folder "DATA" with logical device 5. If there is an! error, statement 900 is executed.OPEN(5,FILE='C:\DATA\PANDAT.DAT',ACCESS='SEQUENTIAL',&STATUS='OLD',ERR=900)! This following section accumulates the sum of! the input variables.! The first command reads the data record and! stores it in memory.DO READ(5,FMT=1,END=99)R,H! The next command describes the form and location! of the data to be read.1FORMAT(F4.2,F4.2)! The next statements assign values to the variables.PI=3.14159A=PI*R**2+2*PI*R*H! The next section writes the sums to the screen.! The first command, PRINT, denotes which FORMAT! statement is to be used, and the variables to be printed.PRINT11,H,R,A! The following FORMAT statement describes how the! data field is to be written. Notice the semicolon in column 6! which is used to denote continuation of the previous line.11FORMAT(1X,'RADIUS= ',F6.2,10X,'HEIGHT= ',F6.1,10X,'AREA= ',&&F8.1)! The following statement completes the loop.END DO! The next section prints if the input data is invalid.900PRINT2121FORMAT(1X,'INVALID DATA')! Now we close the file and end program execution.99CLOSE(5)STOP END
