f90charm: Change syntax for invoking an entry method on one element 71/4271/6
authorEvan Ramos <evan@hpccharm.com>
Mon, 18 Jun 2018 17:20:08 +0000 (12:20 -0500)
committerEvan Ramos <evan@hpccharm.com>
Tue, 24 Jul 2018 15:53:57 +0000 (10:53 -0500)
For example, "array [1D] ChareName { entry void MethodName(void); }":

Old: call SendTo_ChareName_MethodName
New: call ChareName_Invoke_MethodName

Change-Id: I2f89e53cfcb635409b765cff5a1173e51e40121e

doc/f90charm/manual.tex
examples/charm++/f90charm/hello/hellof.f90
examples/charm++/f90charm/hello2D/hellof.f90
examples/charm++/f90charm/ldbDemo/ldbDemof.f90
examples/charm++/f90charm/ldbRedDemo/ldbRedDemof.f90
examples/charm++/f90charm/sdag-case/caseTestf.f90
src/xlat-i/xi-Entry.C

index 6f9a34e2e9d8e398c3654da1820f3a59c31ca40d..0c76b2634763a79cc85f7a75c7f569d0909b6e19 100644 (file)
@@ -107,7 +107,7 @@ a 3D array:
 And for each entry method, this function is available for use in F90 program
 if it is 1D array:
 
-  \verb+SendTo_<ChareName>_<Entry>(charePtr, myIndex, data1, data2 ... )+
+  \verb+<ChareName>_Invoke_<EntryName>(charePtr, myIndex, data1, data2 ... )+
 
   This subroutine will send a message to the array element with the index
 as myIndex. Similarly for arrays with higher dimensions, replace myIndex by
@@ -260,7 +260,7 @@ Now that you have the chare and the chare constructor function, you can start
 
       objPtr%obj%data = 20
       if (myIndex < 4) then
-          call SendTo_Hello_SayHi(objPtr%aid, myIndex+1, 1, data2, len, s);
+          call Hello_Invoke_SayHi(objPtr%aid, myIndex+1, 1, data2, len, s);
       else 
           call CkExit()
       endif
@@ -296,7 +296,7 @@ program by sending the first message.
           s(i) = i;
       enddo
       d = 2.50
-      call SendTo_Hello_SayHi(aid, 0, 1, d, 4, s(3:6));
+      call Hello_Invoke_SayHi(aid, 0, 1, d, 4, s(3:6));
 
       END
 \end{verbatim}
index 3c1ee4b359306119bf3ea65ae8700d8d37a94cb6..fa8661e6006aed4dbd903aa2b9cc0c277ff1acb5 100644 (file)
@@ -60,7 +60,7 @@
         integer index
 
         if (index .eq.  4) THEN
-            call SendTo_Hello_SayHi(objPtr%aid, 0, 1, objPtr%obj%data2,  &
+            call Hello_Invoke_SayHi(objPtr%aid, 0, 1, objPtr%obj%data2,  &
                                     objPtr%obj%len, objPtr%obj%s);
         endif
       END SUBROUTINE
@@ -97,7 +97,7 @@
 
         if (objPtr%obj%iter == 3) then
           if (next .ne. 0) then
-            call SendTo_Hello_SayHi(objPtr%aid, next, 1, data2, len, s);
+            call Hello_Invoke_SayHi(objPtr%aid, next, 1, data2, len, s);
           else
             objPtr%obj%data2 = data2
             objPtr%obj%len = len
         else if (objPtr%obj%iter == 5) then
           call CkExit();
         else 
-          call SendTo_Hello_SayHi(objPtr%aid, next, 1, data2, len, s);
+          call Hello_Invoke_SayHi(objPtr%aid, next, 1, data2, len, s);
         endif
 
       END SUBROUTINE
          s(i) = i;
         enddo
         d = 2.50
-        call SendTo_Hello_SayHi(aid, 0, 1, d, 4, s(3:6));
+        call Hello_Invoke_SayHi(aid, 0, 1, d, 4, s(3:6));
       END SUBROUTINE
 
index bfa35009ac104a41d20d100abfaddca849010edb..95dac3daab4a7917af883a75caaf57f645978d2f 100644 (file)
@@ -85,7 +85,7 @@
         if (newIndex1 .eq. 5) newIndex1 = 0
       endif
       if (newIndex1 .ne. 0 .or. newIndex2 .ne. 0) then
-          call SendTo_Hello_SayHi(objPtr%aid, newIndex1, newIndex2, 1, data2, len, s);
+          call Hello_Invoke_SayHi(objPtr%aid, newIndex1, newIndex2, 1, data2, len, s);
       else 
          call CkExit()
       endif
          s(i) = i;
       enddo
       d = 2.50
-      call SendTo_Hello_SayHi(aid, 0, 0, 1, d, 4, s(3:6));
+      call Hello_Invoke_SayHi(aid, 0, 0, 1, d, 4, s(3:6));
 
       END
 
index 50c1862663303be572c031302d48feb785d0aef0..1c89b0c110a802e491c9522d8c40de1127cccf8c 100644 (file)
            ! AtSync to start load balancing
           call BalanceMe_atSync(objPtr%aid, myIndex)
         ELSE
-          call SendTo_BalanceMe_barrier(objPtr%aid, 0)
+          call BalanceMe_Invoke_barrier(objPtr%aid, 0)
         ENDIF
       END SUBROUTINE
 
         TYPE(LdbDemoPtr) objPtr
         integer myIndex
 
-        call SendTo_BalanceMe_nbrData(objPtr%aid, objPtr%obj%next, objPtr%obj%n, objPtr%obj%myData, myIndex)
+        call BalanceMe_Invoke_nbrData(objPtr%aid, objPtr%obj%next, objPtr%obj%n, objPtr%obj%myData, myIndex)
 
       END SUBROUTINE
 
             call CkExit()
           ELSE
              ! broadcast using "-1"
-            call SendTo_BalanceMe_nextStep(objPtr%aid, -1);
+            call BalanceMe_Invoke_nextStep(objPtr%aid, -1);
           ENDIF
         ENDIF
       END SUBROUTINE
index 630eb3fbb97e2506f51831c14e9aea1eddc3def8..9fa11b8ff24f213a553172c3989c3e1e0a1d69ff 100644 (file)
         TYPE(LdbDemoPtr) objPtr
         integer myIndex
 
-        call SendTo_BalanceMe_nbrData(objPtr%aid, objPtr%obj%next, objPtr%obj%n, objPtr%obj%myData, myIndex)
+        call BalanceMe_Invoke_nbrData(objPtr%aid, objPtr%obj%next, objPtr%obj%n, objPtr%obj%myData, myIndex)
 
       END SUBROUTINE
 
           call CkExit()
         ELSE
            ! broadcast using "-1"
-          call SendTo_BalanceMe_nextStep(objPtr%aid, -1);
+          call BalanceMe_Invoke_nextStep(objPtr%aid, -1);
         ENDIF
       END SUBROUTINE
 
index a89b229d93c1e226f9565d4d8ddc61bd804506b5..a9a61debcb127b05d9108bd259cf432e3b8f9354 100644 (file)
@@ -45,5 +45,5 @@
         integer*8  aid
 
         call CaseTestArray_CkNew(1, aid)
-        call SendTo_CaseTestArray_run(aid, 0)
+        call CaseTestArray_Invoke_run(aid, 0)
       END SUBROUTINE
index 65068bbfabb2bdfaf271485eb96d37cdcb58ed09..c447837606cab85fc96f188da70a7edfac46411e 100644 (file)
@@ -2633,7 +2633,7 @@ void Entry::genDefs(XStr& str) {
     // This is called from Fortran to send the message to a chare.
     str << "extern \"C\" ";
     str << "void ";
-    str << fortranify("SendTo_", container->baseName(), "_", name);
+    str << fortranify(container->baseName(), "_Invoke_", name);
     str << "(void** aindex";
     str << ", " << container->indexList();
     if (!param->isVoid()) {