Go to the source code of this file.
|
| subroutine | g3tog4 (luni, lunc, chopt) |
| |
| subroutine | g4init |
| |
| subroutine | g3header |
| |
| subroutine | g3source |
| |
| subroutine | g3main |
| |
| subroutine | g3context (cntxt) |
| |
| subroutine | ctocp (string) |
| |
| subroutine | rtocp (string, x) |
| |
| subroutine | artocp (string, ax, n) |
| |
| subroutine | aitocp (string, ai, n) |
| |
| subroutine | astocp (string, ac, n) |
| |
| subroutine | g3ldpar (par, npar) |
| |
| subroutine | check_lines |
| |
| subroutine aitocp |
( |
character*(*) |
string, |
|
|
integer, dimension(*) |
ai, |
|
|
integer |
n |
|
) |
| |
| subroutine artocp |
( |
character*(*) |
string, |
|
|
real, dimension(*) |
ax, |
|
|
integer |
n |
|
) |
| |
| subroutine astocp |
( |
character*(*) |
string, |
|
|
character*(*), dimension(*) |
ac, |
|
|
integer |
n |
|
) |
| |
| subroutine check_lines |
( |
| ) |
|
| subroutine ctocp |
( |
character*(*) |
string | ) |
|
| subroutine g3context |
( |
character*(*) |
cntxt | ) |
|
| subroutine g3ldpar |
( |
real, dimension(*) |
par, |
|
|
integer |
npar |
|
) |
| |
| subroutine g3tog4 |
( |
integer |
luni, |
|
|
integer |
lunc, |
|
|
character, dimension(*) |
chopt |
|
) |
| |
| subroutine rtocp |
( |
character*(*) |
string, |
|
|
real |
x |
|
) |
| |