Changeset 345 in Sophya for trunk/SophyaPI/PIext

Timestamp:

Aug 3, 1999, 10:25:50 AM (26 years ago)

Author:

ercodmgr

Message:

Petits bugs - Reza 03/08/99

Location:

trunk/SophyaPI/PIext

Files:

• basexecut.cc (modified) (1 diff)
• servnobjm.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/basexecut.cc

@@ -168 +168 @@
   mObjMgr->SetCurrentDir(tokens[0]);
   }
+else if (kw == "pwd") { 
+  string dirn;
+  mObjMgr->GetCurrentDir(dirn);
+  cout << "CurrentDirectory: " << dirn << endl;
+  }  
 else if (kw == "listdirs")   { 
   if  (tokens.size() < 1)  tokens.push_back("*");

trunk/SophyaPI/PIext/servnobjm.cc

@@ -778 +778 @@
 fputs(" { \n double x,A,B; \n LAB10: \n A = drand01(); \n", fip);
 fputs(" if ( A == 0. ) goto LAB10; \n B = drand01(); \n", fip);
-fputs(" x = sqrt(-2.*log(A))*cos(M_2PI*B); \n", fip);
+fputs(" x = sqrt(-2.*log(A))*cos(2.*M_PI*B); \n", fip);
 fputs(" return(x); \n } \n", fip);
 fputs("#define GauRand() NorRand() \n", fip);
@@ -1425 +1425 @@
 fputs(" { \n double x,A,B; \n LAB10: \n A = drand01(); \n", fip);
 fputs(" if ( A == 0. ) goto LAB10; \n B = drand01(); \n", fip);
-fputs(" x = sqrt(-2.*log(A))*cos(M_2PI*B); \n", fip);
+fputs(" x = sqrt(-2.*log(A))*cos(2.*M_PI*B); \n", fip);
 fputs(" return(x); \n } \n", fip);
 fputs("#define GauRand() NorRand() \n", fip);