|
XBeach
|
00001 !****h* General/Constants 00002 ! 00003 ! SYNOPSIS 00004 ! Module defining common constants 00005 ! 00006 ! COPYRIGHT 00007 ! (C) 2004 by WL|Delft Hydraulics 00008 ! 00009 ! AUTHOR 00010 ! Arjen Markus 00011 ! 00012 ! DESCRIPTION 00013 ! This module contains integer and real parameters: 00014 ! - kind parameters for single (sp) and double (dp) precision 00015 ! - definitions for pi (3.14...) and compi (imaginary unit) 00016 ! 00017 ! SOURCE 00018 ! 00019 ! wwvv never used 00020 ! this would be a nice place to hold things as pi, twopi 00021 ! and so on 00022 00023 module constants 00024 implicit none 00025 save 00026 private 00027 public spkind,dpkind,pi,compi 00028 00029 integer, parameter :: spkind = kind(1.0) 00030 integer, parameter :: dpkind = kind(1.0d0) 00031 real(kind=dpkind), parameter :: pi = 4*atan(1.0_dpkind) 00032 complex(kind=dpkind), parameter :: compi = (0.0_dpkind,1.0_dpkind) 00033 00034 end module constants 00035 !****
1.7.6.1
