#include <stdio.h>
#include "mpropath.h"


void main (int argc, char *argv[])
{
   int kpa = 0, mes = 1, stn = 0, kas = 0, j, i, imax;
   float t, p, x, y, vl, vv, hl, hv, sl, sv;
   char* a[] = { "M", "R", "P", "T", "V", "E" };

   KPAMES( kpa, mes );
   STNKAS( stn, kas );

   t = 3e2;
   p = 5e5;

   SUBXY( &j, t, p, &x, &y, &vl, &vv, &hl, &hv, &sl, &sv );
   printf( "x  = %12.7f    y = %12.7f\n", x, y );
   printf( "vl = %12.7f   vv = %12.7f\n", vl, vv );
   printf( "hl = %12.7f   hv = %12.7f\n", hl * 1e-6, hv * 1e-6 );
   printf( "sl = %12.7f   sv = %12.7f\n", sl * 1e-3, sv * 1e-3 );

   imax = sizeof( a ) / sizeof( char* );
   for ( i = 0; i < imax; i++ ){
       printf( "%12.6f    %12.6f\n", FCM( 1, a[ i ] ), FCM( 2, a[ i ] ) );
   }

}