16 lines
218 B
C++
16 lines
218 B
C++
|
#include <xvt.h>
|
||
|
|
#include "f90.h"
|
||
|
|
|
||
|
|
int main(int argc, char** argv)
|
||
|
|
{
|
||
|
|
int rt = -1;
|
||
|
|
const int r = (argc > 1) ? atoi( &argv[1][1] ) : 0;
|
||
|
|
|
||
|
|
switch (r)
|
||
|
|
{
|
||
|
|
default: rt = f90100(argc, argv); break;
|
||
|
|
}
|
||
|
|
return rt;
|
||
|
|
}
|
||
|
|
|