regdim.h

Go to the documentation of this file.

!
! $Id$
!
!     Valid and equivalent for either free source form or fixed source form
      INTEGER i1_deb, i1_fin
      INTEGER i2_deb, i2_fin
!cc      PARAMETER (i1_deb=21, i1_fin=40)
!cc      PARAMETER (i2_deb=41, i2_fin=44)
!ccc      PARAMETER (i1_deb=47, i1_fin=77)
!ccc      PARAMETER (i2_deb=78, i2_fin=79)
      PARAMETER (i1_deb=16, i1_fin=30)
      PARAMETER (i2_deb=31, i2_fin=33)
!
      INTEGER j_deb, j_fin
!cc      PARAMETER (j_deb=29, j_fin=61)
!ccc      PARAMETER (j_deb=21, j_fin=51)
      PARAMETER (j_deb=18, j_fin=39)