c FORTRAN section
       integer FGKWKMAX,FGKWKIDMAIN
       PARAMETER (FGKWKMAX=5)
       PARAMETER (FGKWKIDMAIN=1)
       integer fgkwtype		
       integer fgkwkopen	
       integer fgdrmctruth
       integer current_view
       real fgdruscale,fgdrvscale
       common/fgdrcntl/fgkwtype,fgkwkopen(FGKWKMAX),
     +                current_view,fgdrmctruth,fgdruscale,fgdrvscale
