test.f

Go to the documentation of this file.

      integer leng, klena
      character*1  NULL
      character*128 path
      integer kgetenv
      null = char(0)
      leng = kgetenv("COSMOSTOP"//null, path)
      path = path(1:leng)
      write(*,*) klena(path),' ', path(1:klena(path))
      end