sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:46
0001 C 0002 C 0003 FUNCTION WDSAX(X) 0004 C ********THREE PARAMETER WOOD SAXON 0005 COMMON/WOOD/R,D,FNORM,W 0006 SAVE /WOOD/ 0007 WDSAX=FNORM*(1.+W*(X/R)**2)/(1+EXP((X-R)/D)) 0008 IF (W.LT.0.) THEN 0009 IF (X.GE.R/SQRT(ABS(W))) WDSAX=0. 0010 ENDIF 0011 RETURN 0012 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|