| Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
cubic_r | Module: GISS_OTURB | File: OCNGISSVM.f |
Author :
Version:
Declaration:
subroutine cubic_r(a, b, c, x1, x2, x3)- a :
real*8
- b :
real*8
- c :
real*8
- x1 :
complex*16
- x2 :
complex*16
- x3 :
complex*16
- pi :
real*8
- q :
real*8
- r :
real*8
- the :
real*8
- temp :
real*8
- aa :
real*8
- bb :
real*8