4.6 Fortran program

1. Enter the FORTRAN program CIRCLE.FOR from the listings below. Start the comments and statement numbers in column 1. Start the statement in column 9, after one tab. Note you MUST use the tab key to indent at the beginning of must each line or between the statement number and the rest of the line. Do NOT use spaces. Do not worry about minor typing errors, you will have a chance to correct them later in this lab. Please name your source code file CIRCLE.FOR.

   ***************************** 
   *      Your Name            * 
   ***************************** 
           OPEN(UNIT=21,FILE='SYS$OUTPUT',STATUS='UNKNOWN') 
           OPEN(UNIT=22,FILE='CIRCLE.DAT',STATUS='UNKNOWN') 
           WRITE(UNIT=21,FMT=2500)
   2500    FORMAT(1X,'CIRCLES AND SPHERES')
           WRITE(UNIT=21,FMT=3000)
   3000    FORMAT(1X,'IF RADIUS IS',3X,'WITH DENSITY',2X, 
           1'CIRCUMFERENCE',9X,'VOLUME',9X,'WEIGHT'/)
   100     READ(UNIT=22,FMT=1000)RAD,DENS
           IF(RAD.EQ.0)GOTO 9900
   1000    FORMAT(F6.2,1X,F6.2) 
           CIRC=RAD*2.0*3.1416 
           VOL=(RAD**3*3.1416*4)/3.0 
           WT=VOL*DENS
           WRITE(UNIT=21,FMT=2000)RAD,DENS,CIRC,VOL,WT 
   2000    FORMAT(1X,6(F12.2,3X))
           GOTO 100
   9900    WRITE(UNIT=21,FMT=4000) 
   4000    FORMAT(/,1X,'END OF DATA') 
           STOP
           END
   
   

2. In a separate file called CIRCLE.DAT enter that following data. Make sure that there are no blank lines and that the first digit is in column one.

   000100 000100
   000010 000500 
   000250 000050 
   000500 000001 
   001000 000050 
   001234 004321 
   010000 001000 
   000000 000000
   

3. Compile the FORTRAN program you created in step 1 with the command:

   $ fortran circle /list
   

   If you get errors refer to file above and correct them with the editor. If you have trouble, you will want to print the .LIS file. (The turn in for this lab is a printout of this .LIS file.)
4. When you get an error free compile, link and execute it.

   $ link circle 
   $ run circle
   

5. It should type out some information about circles and spheres on your terminal. If not, try to determine what went wrong and correct it.
6. Clean up.

   $ delete circle.obj;*, circle.exe;* 
   $ purge circle.*
   

Your-Name
Lab 4.6: FORTRAN circle program
TABER CSC135