program program10
C
C  an illustration of an advanced trick in dimensioning arrays
C
C  1/30/2005  CWJ SDSU
C

      implicit none    ! always recommended

      integer mydim    ! the dimension I want

      parameter(mydim=10)   ! sets mydim

C -- in all of the following, you can reset the dimension
C    by changing the value of mydim above

      real vec1(mydim)
      integer ivec2(mydim)
      real array3(mydim,mydim,mydim)
      real vec3(mydim*2)    ! dimension 2 x mydim 

C.......... now begins the program
 
          
      end