testPrim.f

Go to the documentation of this file.

      program testprim
      implicit none
      character*80 fn
      call cerrormsg(
     * 'Enter path to the primary data file(e.g; ../Data/prim.d)', 1)
      read(*, '(a)') fn
      call cinisprim(fn)
      call cprintprim(5)
      end