223 double
    224 jwcmp(ying, yang, y_length, ind_c)
    225    char *   ying
    226    char *   yang
    227    long  y_length
    228    int * ind_c[]