Problem with graphic functions in visual fortran

Dear Team,

I have a fortran code written actually in windows platform. I am changing it into linux platform. While converting from windows to linux, i have been encountering few errors in linux platform. One such problem is related to derived types, which is related to graphics function. The error is as follows:

The error in the code is "This derived type name has not been declared (wxycoord; poly)" and "This name must be the name of the variable with a derived type <structure type> <poly>". The subroutine is given here.

    SUBROUTINE GRAPH (NE,PVECT,KELEM,CENT,CO,xmax,xmin,ymax,ymin,
     .    nin,factor,gcode,ttot,igcount,mat,cpspr,npspr,nsp,nstdtct,
     . idcond,ibcloc,nint,nunlo,ngraphinc)

!    USE ifqwin
    IMPLICIT REAL*8 (A-H,O-Z)
      INTEGER(2)  status
      TYPE (wxycoord)  poly(3)
    TYPE (wxycoord) xy
    character(10) qwx
      TYPE (rccoord) curpos  
    INCLUDE 'Param2dstatic.F'
    
      DIMENSION PVECT(nodof),KELEM(noelems,4),CENT(noelems,2),
     .CO(noecs,2),mat(noelems),cpspr(noelems,4,nocs,4),npspr(nosps,6)
    DIMENSION nstdtct(nosps,2),ibcloc(noelems) 

    ngraphinc=ngraphinc+1
    isavegraph=0
    if(idcond.eq.2) then
    dumyval=real(igcount)*gcode
    if(ttot+1.e-8.ge.dumyval.and.gcode.ne.0) then
    igcount=igcount+1
    isavegraph=1
      READ(88,*) qwx
    ENDif
    else
    idumyval=igcount*int(gcode)
c    if(ngraphinc.ge.idumyval.and.gcode.ne.0) then
    igcount=igcount+1
    isavegraph=1
      READ(88,*) qwx
c    ENDif    
    ENDif
    call CLEARSCREEN($GCLEARSCREEN)