Added a fortran interface for a simple function that examines the current stack size.
authorIsaac Dooley <idooley2@illinois.edu>
Thu, 2 Apr 2009 19:41:50 +0000 (19:41 +0000)
committerIsaac Dooley <idooley2@illinois.edu>
Thu, 2 Apr 2009 19:41:50 +0000 (19:41 +0000)
src/libs/ck-libs/ampi/ampi.C

index 3974fc5444241da4a540b4e8af394e6f3969d188..495cd3d35c603847bc6cd38462267942f5a2cb44 100644 (file)
@@ -440,6 +440,12 @@ CDECL long ampiCurrentStackUsage(){
  
 }
 
+FDECL void FTN_NAME(AMPICURRENTSTACKUSAGE, ampicurrentstackusage)(void){
+  long usage = ampiCurrentStackUsage();
+  CkPrintf("[%d] Stack usage is currently %ld\n", CkMyPe(), usage);
+}
+
+
 CDECL void AMPI_threadstart(void *data);
 static int AMPI_threadstart_idx = -1;