Changeset 1804 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

Apr 5, 2016 4:30:18 PM (8 years ago)

Author:

maronga

Message:

removed parameter file check. update of mrungui for compilation with qt5

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (5 diffs)

palm/trunk/SOURCE/poisfft.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Removed code for parameter file check (__check)
 ! 
 ! Former revisions:
@@ -150 +150 @@
     PRIVATE
 
-#if ! defined ( __check )
     PUBLIC  poisfft, poisfft_init
 
@@ -160 +159 @@
        MODULE PROCEDURE poisfft_init
     END INTERFACE poisfft_init
-#else
-    PUBLIC  poisfft_init
-
-    INTERFACE poisfft_init
-       MODULE PROCEDURE poisfft_init
-    END INTERFACE poisfft_init
-#endif
+
 
  CONTAINS
@@ -196 +189 @@
 
 
-#if ! defined ( __check )
+
 !------------------------------------------------------------------------------!
 ! Description:
@@ -1499 +1492 @@
     END SUBROUTINE ffty_tri_ffty
 
-#endif
-
  END MODULE poisfft_mod