-
Notifications
You must be signed in to change notification settings - Fork 9
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
interface program to original test suite
- Loading branch information
Showing
3 changed files
with
89 additions
and
2 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,43 @@ | ||
program test | ||
use fitpack_tests | ||
|
||
! Get test ID from the useri | ||
write(*,'(A)',advance='no') 'Enter fitpack test ID [1:29] > ' | ||
read *, itest | ||
|
||
select case (itest) | ||
case (1); call mnbisp | ||
case (2); call mncloc | ||
case (3); call mncoco | ||
case (4); call mnconc | ||
case (5); call mncosp | ||
case (6); call mncual | ||
case (7); call mncurf | ||
case (8); call mnfour | ||
case (9); call mnist | ||
case (10); call mnpade | ||
case (11); call mnparc | ||
case (12); call mnperc | ||
case (13); call mnpogr | ||
case (14); call mnpola | ||
case (15); call mnprof | ||
case (16); call mnregr | ||
case (17); call mnspal | ||
case (18); call mnspde | ||
case (19); call mnspev | ||
case (20); call mnsphe | ||
case (21); call mnspin | ||
case (22); call mnspro | ||
case (23); call mnsuev | ||
case (24); call mnsurf | ||
case (25); call mncuev | ||
case (26); call mndbin | ||
case (27); call mnevpo | ||
case (28); call mnpasu | ||
case (29); call mnspgr | ||
case default; stop 'invalid test ID' | ||
end select | ||
|
||
|
||
|
||
end program test |