!
      subroutine init_ncarg(flnm_ps,appid,iwk_ps)
      implicit none
!
! Args:
      character(len=*),intent(in) :: flnm_ps
      integer,intent(out) :: appid,iwk_ps
!
! Local:
      integer :: list,glist,ier
      integer :: igks_ps
!
! External:
      external NhlFAppClass
      external NhlFNcgmWorkstationClass
      external NhlFPSWorkstationClass
      external NhlFXWorkstationClass

      call NhlFInitialize
      call NhlFRLCreate(list,'setrl')
      call NhlFRLCLear(list)
      call NhlFRLSetString(list,'appDefaultParent','True',ier)
      call NhlFRLSetString(list,'appUsrDir','./',ier)
      call NhlFCreate(appid,'iritest',NhlFAppClass,0,0,ier)
!
      call NhlFRLCLear(list)
      call NhlFRLSetString(list,'wkPSFileName',trim(flnm_ps),ier)
      call NhlFRLSetInteger(list,'wkPSResolution',1799,ier)
      call NhlFRLSetString(list,'wkOrientation','landscape',ier)
!     call NhlFRLSetString(list,'wkOrientation','portrait',ier)
      call NhlFRLSetString(list,'wkVisualType','color',ier)

      call NhlFCreate(iwk_ps,'wrksta_ps',NhlFPSWorkstationClass,0,list,ier)
!
      call NhlFRLCreate(glist,'getrl')
      call NhlFRLClear(glist)
      call NhlFRLGetInteger(glist,'wkGksWorkId',igks_ps,ier)
      call NhlFGetValues(iwk_ps,glist,ier)
      write(6,"('Opened ',a,' iwk_ps=',i3,' igks_ps=',i3)") &
        trim(flnm_ps),iwk_ps,igks_ps
!
! Activate workstations:
      call gacwk(igks_ps )
      end subroutine init_ncarg