OpenCMISSFortran  0.3
opencmiss.f90
Go to the documentation of this file.
00001 
00051 MODULE OpenCMISS
00052   
00053   USE KINDS
00054 
00055 #include "macros.h"  
00056 
00057   IMPLICIT NONE
00058 
00059   PRIVATE
00060 
00061   !Module parameters
00062 
00063   !Module types
00064 
00072   INTEGER, PARAMETER :: CMISSIntg = INTG !<Standard integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00073   INTEGER, PARAMETER :: CMISSSIntg = SINTG !<Short integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00074   INTEGER, PARAMETER :: CMISSLIntg = LINTG !<Long integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00075   INTEGER, PARAMETER :: CMISSPtr = PTR !<Pointer integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00076   INTEGER, PARAMETER :: CMISSIdx = IDX !<Index integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00077   INTEGER, PARAMETER :: CMISSLIdx = LIDX !<Long index integer kind. \see OPENCMISS_IntegerKinds,OPENCMISS
00078 
00083   INTEGER, PARAMETER :: CMISSSP = SP !<Single precision real kind. \see OPENCMISS_RealKinds,OPENCMISS
00084   INTEGER, PARAMETER :: CMISSDP = DP !<Double precision real kind. \see OPENCMISS_RealKinds,OPENCMISS
00085   INTEGER, PARAMETER :: CMISSQP = QP !<Quadruple precision real kind. \see OPENCMISS_RealKinds,OPENCMISS
00086   INTEGER, PARAMETER :: CMISSRP = RP !<Working precision real kind. \see OPENCMISS_RealKinds,OPENCMISS
00087 
00092   INTEGER, PARAMETER :: CMISSSPC = SPC !<Single precision complex kind. \see OPENCMISS_ComplexKinds,OPENCMISS
00093   INTEGER, PARAMETER :: CMISSDPC = DPC !<Double precision complex kind. \see OPENCMISS_ComplexKinds,OPENCMISS
00094   INTEGER, PARAMETER :: CMISSRPC = RPC !<Working precision complex kind. \see OPENCMISS_ComplexKinds,OPENCMISS
00095 
00097 
00098   !Module types
00099 
00100   !Module variables
00101 
00102   !Interfaces
00103 
00104   PUBLIC CMISSIntg,CMISSSIntg,CMISSLIntg,CMISSPtr,CMISSIdx,CMISSLIdx
00105 
00106   PUBLIC CMISSSP,CMISSDP,CMISSQP,CMISSRP
00107 
00108   PUBLIC CMISSSPC,CMISSDPC,CMISSRPC
00109 
00110 CONTAINS
00111 
00112 END MODULE OpenCMISS
 All Classes Files Functions Variables