MODULE vector_Module
!-----------------------------------------------------------------------
! vector_Module
!  fpn
!  igr
!-----------------------------------------------------------------------
   USE numeric_kinds_Module
   SAVE
   INTEGER igr(64)
   REAL (KIND=dp) fpn(64)
   NAMELIST / vector / fpn, igr
END MODULE vector_Module