Changeset 204 for trunk/src/psiu.pro

Timestamp:

03/26/14 11:58:56 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo

File:

• trunk/src/psiu.pro (modified) (2 diffs)

trunk/src/psiu.pro

@@ -7 +7 @@
 ; .. function:: psiu(zet)
 ;
-; DESCRITPION
+; DESCRIPTION
 ; ===========
 ;
@@ -34 +34 @@
 
 if (ii(0) ne -1) then begin
-  c=min([50,.35*zet])
-  psi(ii)=-((1+1.*zet(ii))^1.+.667*(zet(ii)-14.28)/exp(c(ii))+8.525)
+    c=min([50,.35*zet])
+    psi(ii)=-((1+1.*zet(ii))^1.+.667*(zet(ii)-14.28)/exp(c(ii))+8.525)
 endif