Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
28996 Discussions

Problem with graphic functions in visual fortran

Chenna_R_
Beginner
825 Views

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)

 

0 Kudos
4 Replies
mecej4
Honored Contributor III
825 Views

QuickWin is supported only under Windows. See https://software.intel.com/en-us/node/511402 , where it says "Programs that use these routines must access the appropriate library with USE IFQWIN. These routines are restricted to Windows* systems.".

0 Kudos
Chenna_R_
Beginner
825 Views

Hello,

I am really thankful to you for the information. Are there any libraries related to graphic functions which will run on linux platform.

Regards,

Chenna 

0 Kudos
JVanB
Valued Contributor II
825 Views

OpenGL works on both platforms. The trouble is that the initialization code that begs the OS to set up a canvas that OpenGL can write to is different from OS to OS. Examples are readily available for Windows but for some reason quite rare in Linux or MacOS. Also graphical user input isn't handled by OpenGL itself, so that would have to be taken care of on a per-OS basis somehow.

 

0 Kudos
Chenna_R_
Beginner
825 Views

Here I am attaching the attachment related to memory allocation problem. I kindly request you to resolve.

0 Kudos
Reply