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

Timestamp:

Jan 30, 2012 1:32:58 PM (12 years ago)

Author:

maronga

Message:

Bugfix: cpp directives .NOT., .AND. replaced by !,&&. Minor bugfixes in mrungui

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
 !
 ! Former revisions:
@@ -111 +111 @@
     PRIVATE
 
-#if .NOT. defined ( __check )
+#if ! defined ( __check )
     PUBLIC  poisfft, poisfft_init
 
@@ -137 +137 @@
     END SUBROUTINE poisfft_init
 
-#if .NOT. defined ( __check )
+#if ! defined ( __check )
     SUBROUTINE poisfft( ar, work )