PROGRAM ARRAY3 c c What if I don't know how much array space I will need when I first c write my Fortran Program c c John Mahaffy 2/2/95 c IMPLICIT NONE INTEGER I,J,IERR,N,NDAT c c Declare A, B, and C to be arrays to be ALLOCATABLE c REAL, ALLOCATABLE :: A(:),B(:),C(:) REAL CSUM,CMAX,CMIN,AVERAGE c c Decide on space needed for the arrays c NDAT=10 c c Tell the computer to grab space for your arrays. You should have the c "STAT=" portion of this statement to provide an error indicator. If c you skip the optional STAT argument the code will terminate immediately c on any allocation problem. c ALLOCATE (A(1:NDAT),B(NDAT),C(NDAT),STAT=IERR) PRINT *, 'ERROR FLAG =', IERR c c Set values of A and B c A(1:NDAT) = (/( I, I=1,NDAT)/) B(1:NDAT) = (/(I/3, I=1,NDAT)/) c c Process as before c C(1:NDAT)=A(1:NDAT)+B(1:NDAT) CSUM=SUM(C(1:NDAT)) CMIN=MINVAL(C(1:NDAT)) CMAX=MAXVAL(C(1:NDAT)) C AVERAGE=CSUM/NDAT c c Note modification of this write from array1.f and array2.f c WRITE(*,'(//,'' RESULTS FOR ELEMENTS 1 THROUGH '',I3,'' OF C'')') & NDAT WRITE(6,2002)AVERAGE,CMIN,CMAX 2002 FORMAT(' AVERAGE OF SELECTED ELEMENTS IN C = ', F8.3,/, & ' MINIMUM OF SELECTED ELEMENTS IN C = ', F8.3,/, & ' MAXIMUM OF SELECTED ELEMENTS IN C = ', F8.3) WRITE(6,2003) C(1:NDAT) 2003 FORMAT(' C = ',/,(1P,8E10.2)) c STOP END