lex.reg.c
/* init lcx: look for logical coord system (LTV/LTM) keywords */
init lcx: look for logical coord system (LTV/LTM) keywords
init lcx : look for logical coord system ( LTV / LTM ) keywords
static void lcx_init(char *cards, double lcxm[3][2]){
  if( !cards || !hgetr8(cards, "LTM1_1", &lcxm[0][0]) ){
    lcxm[0][0] = 1.0;
  }
  if( !cards || !hgetr8(cards, "LTM2_1", &lcxm[1][0]) ){
    lcxm[1][0] = 0.0;
  }
  if( !cards || !hgetr8(cards, "LTM1_2", &lcxm[0][1]) ){
    lcxm[0][1] = 0.0;
  }
  if( !cards || !hgetr8(cards, "LTM2_2", &lcxm[1][1]) ){
    lcxm[1][1] = 1.0;
  }
  if( !cards || !hgetr8(cards, "LTV1", &lcxm[2][0]) ){
    lcxm[2][0] = 0.0;
  }
  if( !cards || !hgetr8(cards, "LTV2", &lcxm[2][1]) ){
    lcxm[2][1] = 0.0;
  }
#if FUNTOOLS_COMPATIBILITY
  if( (lcxm[0][0] == 1.0) && (lcxm[0][1] == 0.0) && (lcxm[2][0] == 0.5) ){
    lcxm[2][0] = 0.0;
  }
  if( (lcxm[0][1] == 0.0) && (lcxm[1][1] == 1.0) && (lcxm[2][1] == 0.5) ){
    lcxm[2][1] = 0.0;
  }
#endif
}
static void lcx_init ( char * cards , double lcxm [ 3 ] [ 2 ] ) { if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 0 ] [ 0 ] ) ) { lcxm [ 0 ] [ 0 ] = 1.0 ; } if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 1 ] [ 0 ] ) ) { lcxm [ 1 ] [ 0 ] = 0.0 ; } if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 0 ] [ 1 ] ) ) { lcxm [ 0 ] [ 1 ] = 0.0 ; } if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 1 ] [ 1 ] ) ) { lcxm [ 1 ] [ 1 ] = 1.0 ; } if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 2 ] [ 0 ] ) ) { lcxm [ 2 ] [ 0 ] = 0.0 ; } if ( ! cards || ! hgetr8 ( cards , " " , & lcxm [ 2 ] [ 1 ] ) ) { lcxm [ 2 ] [ 1 ] = 0.0 ; } #if FUNTOOLS_COMPATIBILITY if ( ( lcxm [ 0 ] [ 0 ] == 1.0 ) && ( lcxm [ 0 ] [ 1 ] == 0.0 ) && ( lcxm [ 2 ] [ 0 ] == 0.5 ) ) { lcxm [ 2 ] [ 0 ] = 0.0 ; } if ( ( lcxm [ 0 ] [ 1 ] == 0.0 ) && ( lcxm [ 1 ] [ 1 ] == 1.0 ) && ( lcxm [ 2 ] [ 1 ] == 0.5 ) ) { lcxm [ 2 ] [ 1 ] = 0.0 ; } #endif }
init lcx: look for logical coord system (LTV/LTM) keywords
init lcx : look for logical coord system ( LTV / LTM ) keywords