Map Size Enlarging

From: Sivannarayana Dhulipudi <sdhulipudi_at_nyahnyahspammersnyahnyah>
Date: Wed, 24 Jan 2007 14:47:38 +0530

Hi Ncarg Talk  Members,

 

    Last few days I was trying to enlarge the map to 'AO' size using NCAR Graphics sub routines like SET, NGSETI but I could not get it. Can you help me what values need to set and which sub routine I need to use to get ‘AO’ size map.

 

  Thank you very much in advance

 

PROGRAM TEST
C
C Define the error file, the Fortran unit number, the workstation type,
C and the workstation ID to be used in calls to GKS routines.  Use one
C of the following:
C
        PARAMETER (IERF=6,LUNI=2,IWTY=1 ,IWID=1)  !  NCGM

C
C Open GKS.
C
        CALL GOPKS (IERF,0)
        CALL GOPWK (IWID,LUNI,IWTY)
        CALL GACWK (IWID)
C
C Turn off the clipping indicator.
C
        CALL GSCLIP (0)

C
C Initialize EZMAP.
C
        CALL MPSETI ('LA',0) 
        CALL MPSETI ('GR',5) 

        CALL MAPROJ ('ME',0.,105.,0.)
        CALL MAPSET ('CO',-65.,20.,+20.,180.)

        CALL MAPINT
C
C Draw lat/lon lines.
C
        CALL MDPGRD

C
C Close GKS.
C
        CALL GDAWK (IWID)
        CALL GCLWK (IWID)
        CALL GCLKS
C
C Done.
C
        STOP
C
      END

Thanks & Regards

Siva

Computer Science Corporation.

Singapore-470708

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
This is a PRIVATE message. If you are not the intended recipient, please delete without copying and kindly advise us by e-mail of the mistake in delivery. NOTE: Regardless of content, this e-mail shall not operate to bind CSC to any order or other contract unless pursuant to explicit written agreement or government initiative expressly permitting the use of e-mail for such purpose.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

_______________________________________________
ncarg-talk mailing list
ncarg-talk_at_ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncarg-talk
Received on Wed Jan 24 2007 - 02:17:38 MST

This archive was generated by hypermail 2.2.0 : Mon Feb 05 2007 - 16:33:14 MST