PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

Free OpenACC Webinar

How to use module from intel Fortran within PVF?

 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling
View previous topic :: View next topic  
Author Message
unwannadie



Joined: 22 Jul 2014
Posts: 6

PostPosted: Tue Oct 21, 2014 8:37 pm    Post subject: How to use module from intel Fortran within PVF? Reply with quote

Noticed that PGI src file have no dflogm.f90,which used in intel fortran.And it's cant easily included for using.
So how to use such modules in intel Fortran include file.

BTW,PVF cant recognize DEC directive freeform/if/else/endif.Should I ignore those warning?
Back to top
View user's profile
mkcolg



Joined: 30 Jun 2004
Posts: 6213
Location: The Portland Group Inc.

PostPosted: Thu Oct 23, 2014 1:01 pm    Post subject: Reply with quote

Hi unwannadie,

We include DFLIB, DFPORT, and DFWIN, but not DFLOGM. Unfortunately I know very little about DFLOGM.

Quote:
PVF cant recognize DEC directive freeform/if/else/endif.Should I ignore those warning?
Ignoring Freeform should be fine (you can set this via the "-Mfree" flag), but the if/else/endif may be problematic given they specify conditional compilation. Can you update these to use Preprocessing Macros #ifdef/#else/#endif instead.

- Mat
Back to top
View user's profile
QiangG



Joined: 10 Oct 2014
Posts: 2

PostPosted: Sun Oct 26, 2014 8:42 pm    Post subject: Reply with quote

Hi Mat,

PVF also cant recognize DEC directive options/objcomment/ATTRIBUTES optional/default.Will those be problematic?


Last edited by QiangG on Mon Oct 27, 2014 12:28 am; edited 1 time in total
Back to top
View user's profile
QiangG



Joined: 10 Oct 2014
Posts: 2

PostPosted: Mon Oct 27, 2014 12:26 am    Post subject: Reply with quote

Such as,error S0188 : Argument number 1 to getmodulehandle: type mismatch


getmodulehandle in "kernel32.f90" is different between IVF and PVF.

in IVF
Code:
INTERFACE
FUNCTION GetModuleHandle( &
        lpModuleName)
import
  integer(HANDLE) :: GetModuleHandle ! HMODULE
!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'GetModuleHandleA' :: GetModuleHandle
!DEC$ ATTRIBUTES REFERENCE, IGNORE_LOC, ALLOW_NULL :: lpModuleName
  character*(*) lpModuleName ! LPCSTR lpModuleName
 END FUNCTION
END INTERFACE


in PVF
Code:
     INTERFACE
     FUNCTION GetModuleHandle(   &
         lpModuleName)
     USE DFWINTY
         integer(HANDLE) :: GetModuleHandle ! HMODULE
!DEC$ ATTRIBUTES STDCALL, DECORATE, ALIAS : 'GetModuleHandleA' :: GetModuleHandle
!DEC$ ATTRIBUTES REFERENCE :: lpModuleName
         character*(*) lpModuleName ! LPCSTR lpModuleName
     END FUNCTION
     END INTERFACE
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling All times are GMT - 7 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group