subroutine getsizes(nsmxl,ntmxl)

      IMPLICIT NONE
 
      include 'parameter.par'

      integer nsmxl,ntmxl

      nsmxl = nsmx
      ntmxl = ntmx

c     Just to get the sizes nsmx, ntmx at the initiation level

      return
      end