Changeset 14212 for vendors/PPR/src/rmap1d.h90

Timestamp:

2020-12-18T12:19:49+01:00 (4 years ago)

Author:

jchanut

Message:

#2222, update PPR library to circumvent issues found with cpp directives: remove timing instructions. Changed main module extension in .F90 to comply with FCM rules (no effect).

File:

• vendors/PPR/src/rmap1d.h90 (modified) (4 diffs)

vendors/PPR/src/rmap1d.h90

@@ -28 +28 @@
 
     !    
-    ! RMAP1D.f90: high-order integral re-mapping operators.
+    ! RMAP1D.h90: high-order integral re-mapping operators.
     !
     ! Darren Engwirda 
@@ -148 +148 @@
     !------------- remap FDAT from XPOS to XNEW using FHAT !
 
-        __TIC__
 
         select case(opts%cell_meth)
@@ -185 +184 @@
         end select
         
-        __TOC__(tCPU,rmap_time)
         
         return
@@ -245 +243 @@
         integer, parameter :: INTB = -1   ! integral basis  
 
+    !------------------------------------- initializations !
+
+        vvlo(+1:+5) = 0.d0
+        vvhi(+1:+5) = 0.d0
+
     !------------- remap FDAT from XPOS to XNEW using FHAT !