Changeset 436 for trunk/fsource/powsubs/psvfcj.for
- Timestamp:
- Dec 8, 2011 4:38:08 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/fsource/powsubs/psvfcj.for
r411 r436 133 133 tmp1 = tmp2*(1.0 - tmp2*(1.0-sin2THETA2)) 134 134 else 135 print *,'tmp > 1.0'135 C print *,'tmp > 1.0' 136 136 tmp1 = 0.0 137 137 if (tmp .gt. 0.0) then
Note: See TracChangeset
for help on using the changeset viewer.