CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C C Copyright (C) 1995 C C University Corporation for Atmospheric Research C C all rights reserved C C C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C File: lb01f.f C C Author: Bob Lackman C National Center for Atmospheric Research C PO 3000, Boulder, Colorado C C Date: Fri Jan 13 18:31:18 mdt 1995 C C Description: Demonstrates the LabelBar object defaults. C external NhlFLabelBarClass external NhlFAppClass external NhlFXWorkstationClass external NhlFNcgmWorkstationClass external NhlFPSWorkstationClass integer appid, wid, pid integer rlist, ierr integer NCGM, X11, PS C C Default is to display output to an X workstation C NCGM=0 X11=1 PS=0 C C Initialize the high level utility library C call NhlFInitialize C C Create an application context. Set the app dir to the current C directory so the application looks for a resource file in the C working directory. In this example the resource file supplies the C plot title only. C call NhlFRLCreate(rlist,'setrl') call NhlFRLClear(rlist) call NhlFRLSetstring(rlist,'appUsrDir','./',ierr) call NhlFRLSetstring(rlist,'appDefaultParent','True',ierr) call NhlFCreate(appid,'lb01',NhlFAppClass,0,rlist,ierr) if (NCGM.eq.1) then C C Create an NCGM workstation. C call NhlFRLClear(rlist) call NhlFRLSetstring(rlist,'wkMetaName','./lb01f.ncgm',ierr) call NhlFCreate(wid,'lb01Work', $ NhlFNcgmWorkstationClass,0,rlist,ierr) else if (X11.eq.1) then C C Create an X workstation. C call NhlFRLClear(rlist) call NhlFRLSetstring(rlist,'wkPause','True',ierr) call NhlFCreate(wid,'lb01Work',NhlFXWorkstationClass, $ 0,rlist,ierr) else if (PS.eq.1) then C C Create a PS workstation. C call NhlFRLClear(rlist) call NhlFRLSetstring(rlist,'wkPSFileName','./lb01f.ps',ierr) call NhlFCreate(wid,'lb01Work', $ NhlFPSWorkstationClass,0,rlist,ierr) endif C C Specify the viewport extent of the object. C call NhlFRLClear(rlist) call NhlFRLSetfloat(rlist,'vpXF',0.,ierr) call NhlFRLSetfloat(rlist,'vpYF',1.,ierr) call NhlFRLSetfloat(rlist,'vpWidthF',1.,ierr) call NhlFRLSetfloat(rlist,'vpHeightF',1.,ierr) call NhlFCreate(pid,'LabelBar',NhlFLabelBarClass, $ wid,rlist,ierr) call NhlFDraw(pid,ierr) call NhlFFrame(wid,ierr) call NhlFDestroy(pid,ierr) call NhlFDestroy(wid,ierr) call NhlFDestroy(appid,ierr) call NhlFClose stop end