00001 module precision 00002 00003 implicit none 00004 00005 integer, parameter :: DP = 8 00006 00007 00008 end module precision