opencmiss.f90

Go to the documentation of this file.

MODULE opencmiss
  
  USE kinds

#include "macros.h"  

  IMPLICIT NONE

  PRIVATE

  !Module parameters

  !Module types

  INTEGER, PARAMETER :: cmissintg = intg 
  INTEGER, PARAMETER :: cmisssintg = sintg 
  INTEGER, PARAMETER :: cmisslintg = lintg 
  INTEGER, PARAMETER :: cmissptr = ptr 
  INTEGER, PARAMETER :: cmissidx = idx 
  INTEGER, PARAMETER :: cmisslidx = lidx 
  INTEGER, PARAMETER :: cmisssp = sp 
  INTEGER, PARAMETER :: cmissdp = dp 
  INTEGER, PARAMETER :: cmissqp = qp 
  INTEGER, PARAMETER :: cmissrp = rp 
  INTEGER, PARAMETER :: cmissspc = spc 
  INTEGER, PARAMETER :: cmissdpc = dpc 
  INTEGER, PARAMETER :: cmissrpc = rpc 

  !Module types

  !Module variables

  !Interfaces

  PUBLIC cmissintg,cmisssintg,cmisslintg,cmissptr,cmissidx,cmisslidx

  PUBLIC cmisssp,cmissdp,cmissqp,cmissrp

  PUBLIC cmissspc,cmissdpc,cmissrpc

CONTAINS

END MODULE opencmiss