sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:15
0001 0002 C********************************************************************* 0003 0004 C...PYRVS 0005 C...Interference function 0006 0007 FUNCTION PYRVS(X,Y,M1,W1,M2,W2) 0008 0009 IMPLICIT NONE 0010 DOUBLE PRECISION X, Y, PYRVS, PYRVR, M1, M2, W1, W2 0011 PYRVS = PYRVR(X,M1,W1)*PYRVR(Y,M2,W2)*((X-M1**2)*(Y-M2**2) 0012 & +W1*W2*M1*M2) 0013 RETURN 0014 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|