c
      subroutine setncgm(appid,ncgmwid,cgmfile,gkswid)
c
c Create application (appid), create ncgm workstation (ncgmwid), 
c and get gks workstation id (gkswid):
c
      integer appid,gkswid,glist
      character*(*) cgmfile
      external NhlFAppClass
      external NhlFNcgmWorkstationClass
c
c Create resource list and application:
c
      call NhlFInitialize
      call NhlFRLCreate(list,'setrl')
      call NhlFRLCLear(list)
      call NhlFRLSetString(list,'appDefaultParent','True',ierr)
      call NhlFRLSetString(list,'appUsrDir','./',ierr)
      call NhlFCreate(appid,'tgcmproc',NhlFAppClass,0,0,ier)
c
c Create ncgm workstation:
c
      call NhlFRLCLear(list)
      call NhlFRLSetString(list,'wkMetaName',cgmfile(1:lenstr(cgmfile)),
     +  ier)
      call NhlFCreate(ncgmwid,'tgcmprocWork',NhlFNcgmWorkstationClass,
     +  0,list,ier)
      call NhlFRLDestroy(list)
c
c Get gks workstation id:
c
      call NhlFRLCreate(glist,'getrl')
      call NhlFRLClear(glist)
      call NhlFRLGetInteger(glist,'wkGksWorkId',gkswid,ier)
      call NhlFGetValues(ncgmwid,glist,ier)
      call NhlFRLDestroy(glist)
      return
      end