Lines Matching defs:X
253 #define F77_EXTERNAL_NAME(X) X ## _ argument
267 #define F77_ISTRUE(X) ( X ) argument
268 #define F77_ISFALSE(X) ( !( X ) ) argument
317 #define F77_SUBROUTINE(X) void F77_EXTERNAL_NAME(X) argument
333 #define F77_INTEGER_FUNCTION(X) F77_INTEGER_TYPE F77_EXTERNAL_NAME(X) argument
334 #define F77_REAL_FUNCTION(X) F77_REAL_FUNCTION_TYPE F77_EXTERNAL_NAME(X) argument
335 #define F77_DOUBLE_FUNCTION(X) F77_DOUBLE_TYPE F77_EXTERNAL_NAME(X) argument
336 #define F77_LOGICAL_FUNCTION(X) F77_LOGICAL_TYPE F77_EXTERNAL_NAME(X) argument
337 #define F77_CHARACTER_FUNCTION(X) void F77_EXTERNAL_NAME(X) argument
338 #define F77_BYTE_FUNCTION(X) F77_BYTE_TYPE F77_EXTERNAL_NAME(X) argument
339 #define F77_WORD_FUNCTION(X) F77_WORD_TYPE F77_EXTERNAL_NAME(X) argument
340 #define F77_UBYTE_FUNCTION(X) F77_UBYTE_TYPE F77_EXTERNAL_NAME(X) argument
341 #define F77_UWORD_FUNCTION(X) F77_UWORD_TYPE F77_EXTERNAL_NAME(X) argument
342 #define F77_POINTER_FUNCTION(X) F77_POINTER_TYPE F77_EXTERNAL_NAME(X) argument
347 #define CHARACTER_RETURN_VALUE(X) CHARACTER(X) TRAIL(X) argument
348 #define CHARACTER_RETURN_ARG(X) CHARACTER_ARG(X) TRAIL_ARG(X) argument
356 #define INTEGER(X) F77_INTEGER_TYPE *CNF_CONST X argument
357 #define REAL(X) F77_REAL_TYPE *CNF_CONST X argument
358 #define DOUBLE(X) F77_DOUBLE_TYPE *CNF_CONST X argument
359 #define LOGICAL(X) F77_LOGICAL_TYPE *CNF_CONST X argument
360 #define BYTE(X) F77_BYTE_TYPE *CNF_CONST X argument
361 #define WORD(X) F77_WORD_TYPE *CNF_CONST X argument
362 #define UBYTE(X) F77_UBYTE_TYPE *CNF_CONST X argument
363 #define UWORD(X) F77_UWORD_TYPE *CNF_CONST X argument
368 #define POINTER(X) F77_POINTER_TYPE *CNF_CONST X argument
371 #define SUBROUTINE(X) void (*X)() argument
372 #define INTEGER_FUNCTION(X) F77_INTEGER_TYPE (*X)() argument
373 #define REAL_FUNCTION(X) F77_REAL_TYPE (*X)() argument
374 #define DOUBLE_FUNCTION(X) F77_DOUBLE_TYPE (*X)() argument
375 #define LOGICAL_FUNCTION(X) F77_LOGICAL_TYPE (*X)() argument
376 #define CHARACTER_FUNCTION(X) F77_CHARACTER_TYPE (*X)() argument
377 #define BYTE_FUNCTION(X) F77_BYTE_TYPE (*X)() argument
378 #define WORD_FUNCTION(X) F77_WORD_TYPE (*X)() argument
379 #define UBYTE_FUNCTION(X) F77_UBYTE_TYPE (*X)() argument
380 #define UWORD_FUNCTION(X) F77_UWORD_TYPE (*X)() argument
381 #define POINTER_FUNCTION(X) F77_POINTER_TYPE (*X)() argument
385 #define INTEGER_ARRAY(X) F77_INTEGER_TYPE *CNF_CONST X argument
386 #define REAL_ARRAY(X) F77_REAL_TYPE *CNF_CONST X argument
387 #define DOUBLE_ARRAY(X) F77_DOUBLE_TYPE *CNF_CONST X argument
388 #define LOGICAL_ARRAY(X) F77_LOGICAL_TYPE *CNF_CONST X argument
389 #define BYTE_ARRAY(X) F77_BYTE_TYPE *CNF_CONST X argument
390 #define WORD_ARRAY(X) F77_WORD_TYPE *CNF_CONST X argument
391 #define UBYTE_ARRAY(X) F77_UBYTE_TYPE *CNF_CONST X argument
392 #define UWORD_ARRAY(X) F77_UWORD_TYPE *CNF_CONST X argument
394 #define POINTER_ARRAY(X) F77_POINTER_TYPE *CNF_CONST X argument
406 #define CHARACTER(X) F77_CHARACTER_TYPE *CNF_CONST X argument
407 #define TRAIL(X) ,@TRAIL_TYPE@ X ## _length argument
408 #define CHARACTER_ARRAY(X) F77_CHARACTER_TYPE *CNF_CONST X argument
419 #define GENPTR_INTEGER(X) argument
420 #define GENPTR_REAL(X) argument
421 #define GENPTR_DOUBLE(X) argument
422 #define GENPTR_CHARACTER(X) argument
423 #define GENPTR_LOGICAL(X) argument
424 #define GENPTR_BYTE(X) argument
425 #define GENPTR_WORD(X) argument
426 #define GENPTR_UBYTE(X) argument
427 #define GENPTR_UWORD(X) argument
428 #define GENPTR_POINTER(X) argument
430 #define GENPTR_INTEGER_ARRAY(X) argument
431 #define GENPTR_REAL_ARRAY(X) argument
432 #define GENPTR_DOUBLE_ARRAY(X) argument
433 #define GENPTR_CHARACTER_ARRAY(X) argument
434 #define GENPTR_LOGICAL_ARRAY(X) argument
435 #define GENPTR_BYTE_ARRAY(X) argument
436 #define GENPTR_WORD_ARRAY(X) argument
437 #define GENPTR_UBYTE_ARRAY(X) argument
438 #define GENPTR_UWORD_ARRAY(X) argument
439 #define GENPTR_POINTER_ARRAY(X) argument
441 #define GENPTR_SUBROUTINE(X) argument
442 #define GENPTR_INTEGER_FUNCTION(X) argument
443 #define GENPTR_REAL_FUNCTION(X) argument
444 #define GENPTR_DOUBLE_FUNCTION(X) argument
445 #define GENPTR_CHARACTER_FUNCTION(X) argument
446 #define GENPTR_LOGICAL_FUNCTION(X) argument
447 #define GENPTR_BYTE_FUNCTION(X) argument
448 #define GENPTR_WORD_FUNCTION(X) argument
449 #define GENPTR_UBYTE_FUNCTION(X) argument
450 #define GENPTR_UWORD_FUNCTION(X) argument
451 #define GENPTR_POINTER_FUNCTION(X) argument
460 #define DECLARE_INTEGER(X) F77_INTEGER_TYPE X argument
461 #define DECLARE_REAL(X) F77_REAL_TYPE X argument
462 #define DECLARE_DOUBLE(X) F77_DOUBLE_TYPE X argument
463 #define DECLARE_LOGICAL(X) F77_LOGICAL_TYPE X argument
464 #define DECLARE_BYTE(X) F77_BYTE_TYPE X argument
465 #define DECLARE_WORD(X) F77_WORD_TYPE X argument
466 #define DECLARE_UBYTE(X) F77_UBYTE_TYPE X argument
467 #define DECLARE_UWORD(X) F77_UWORD_TYPE X argument
469 #define DECLARE_POINTER(X) F77_POINTER_TYPE X argument
471 #define DECLARE_CHARACTER(X,L) F77_CHARACTER_TYPE X[L]; \ argument
477 #define DECLARE_INTEGER_ARRAY(X,D) F77_INTEGER_TYPE X[D] argument
478 #define DECLARE_REAL_ARRAY(X,D) F77_REAL_TYPE X[D] argument
479 #define DECLARE_DOUBLE_ARRAY(X,D) F77_DOUBLE_TYPE X[D] argument
480 #define DECLARE_LOGICAL_ARRAY(X,D) F77_LOGICAL_TYPE X[D] argument
481 #define DECLARE_BYTE_ARRAY(X,D) F77_BYTE_TYPE X[D] argument
482 #define DECLARE_WORD_ARRAY(X,D) F77_WORD_TYPE X[D] argument
483 #define DECLARE_UBYTE_ARRAY(X,D) F77_UBYTE_TYPE X[D] argument
484 #define DECLARE_UWORD_ARRAY(X,D) F77_UWORD_TYPE X[D] argument
485 #define DECLARE_POINTER_ARRAY(X,D) F77_POINTER_TYPE X[D] argument
486 #define DECLARE_CHARACTER_ARRAY(X,L,D) F77_CHARACTER_TYPE X[D][L]; \ argument
490 #define DECLARE_CHARACTER_DYN(X) F77_CHARACTER_TYPE *X = NULL;\ argument
492 #define F77_CREATE_CHARACTER(X,L) X=cnfCref(L);\ argument
496 #define DECLARE_INTEGER_ARRAY_DYN(X) F77_INTEGER_TYPE *X = NULL argument
497 #define DECLARE_REAL_ARRAY_DYN(X) F77_REAL_TYPE *X = NULL argument
498 #define DECLARE_DOUBLE_ARRAY_DYN(X) F77_DOUBLE_TYPE *X = NULL argument
499 #define DECLARE_LOGICAL_ARRAY_DYN(X) F77_LOGICAL_TYPE *X = NULL argument
500 #define DECLARE_BYTE_ARRAY_DYN(X) F77_BYTE_TYPE *X = NULL argument
501 #define DECLARE_WORD_ARRAY_DYN(X) F77_WORD_TYPE *X = NULL argument
502 #define DECLARE_UBYTE_ARRAY_DYN(X) F77_UBYTE_TYPE *X = NULL argument
503 #define DECLARE_UWORD_ARRAY_DYN(X) F77_UWORD_TYPE *X = NULL argument
504 #define DECLARE_POINTER_ARRAY_DYN(X) F77_POINTER_TYPE *X = NULL argument
505 #define DECLARE_CHARACTER_ARRAY_DYN(X) F77_CHARACTER_TYPE *X = NULL;\ argument
512 #define F77_CREATE_CHARACTER_ARRAY(X,L,N) \ argument
514 #define F77_CREATE_CHARACTER_ARRAY_M(X,L,N,D) X=cnfCrefa(L,N,D);\ argument
516 #define F77_CREATE_LOGICAL_ARRAY(X,N) \ argument
518 #define F77_CREATE_LOGICAL_ARRAY_M(X,N,D) X=cnfCrela(N,D) argument
519 #define F77_CREATE_INTEGER_ARRAY(X,N) argument
520 #define F77_CREATE_REAL_ARRAY(X,N) argument
521 #define F77_CREATE_DOUBLE_ARRAY(X,N) argument
522 #define F77_CREATE_BYTE_ARRAY(X,N) argument
523 #define F77_CREATE_UBYTE_ARRAY(X,N) argument
524 #define F77_CREATE_WORD_ARRAY(X,N) argument
525 #define F77_CREATE_UWORD_ARRAY(X,N) argument
526 #define F77_CREATE_POINTER_ARRAY(X,N)\ argument
546 #define F77_FREE_INTEGER(X) argument
547 #define F77_FREE_REAL(X) argument
548 #define F77_FREE_DOUBLE(X) argument
549 #define F77_FREE_BYTE(X) argument
550 #define F77_FREE_UBYTE(X) argument
551 #define F77_FREE_WORD(X) argument
552 #define F77_FREE_UWORD(X) argument
553 #define F77_FREE_POINTER(X) cnfFree((void *)X); argument
554 #define F77_FREE_CHARACTER(X) cnfFreef( X ) argument
555 #define F77_FREE_LOGICAL(X) cnfFree( (char *)X ) argument
643 #define F77_CALL(X) F77_EXTERNAL_NAME(X) argument
654 #define INTEGER_ARG(X) X argument
655 #define REAL_ARG(X) X argument
656 #define DOUBLE_ARG(X) X argument
657 #define LOGICAL_ARG(X) X argument
658 #define BYTE_ARG(X) X argument
659 #define WORD_ARG(X) X argument
660 #define UBYTE_ARG(X) X argument
661 #define UWORD_ARG(X) X argument
662 #define POINTER_ARG(X) X argument
663 #define CHARACTER_ARG(X) X argument
664 #define TRAIL_ARG(X) ,X##_length argument
666 #define SUBROUTINE_ARG(X) X argument
667 #define INTEGER_FUNCTION_ARG(X) X argument
668 #define REAL_FUNCTION_ARG(X) X argument
669 #define DOUBLE_FUNCTION_ARG(X) X argument
670 #define LOGICAL_FUNCTION_ARG(X) X argument
671 #define CHARACTER_FUNCTION_ARG(X) X argument
672 #define BYTE_FUNCTION_ARG(X) X argument
673 #define WORD_FUNCTION_ARG(X) X argument
674 #define UBYTE_FUNCTION_ARG(X) X argument
675 #define UWORD_FUNCTION_ARG(X) X argument
676 #define POINTER_FUNCTION_ARG(X) X argument
678 #define INTEGER_ARRAY_ARG(X) (F77_INTEGER_TYPE *)X argument
679 #define REAL_ARRAY_ARG(X) (F77_REAL_TYPE *)X argument
680 #define DOUBLE_ARRAY_ARG(X) (F77_DOUBLE_TYPE *)X argument
681 #define LOGICAL_ARRAY_ARG(X) (F77_LOGICAL_TYPE *)X argument
682 #define BYTE_ARRAY_ARG(X) (F77_BYTE_TYPE *)X argument
683 #define WORD_ARRAY_ARG(X) (F77_WORD_TYPE *)X argument
684 #define UBYTE_ARRAY_ARG(X) (F77_UBYTE_TYPE *)X argument
685 #define UWORD_ARRAY_ARG(X) (F77_UWORD_TYPE *)X argument
686 #define POINTER_ARRAY_ARG(X) (F77_POINTER_TYPE *)X argument
687 #define CHARACTER_ARRAY_ARG(X) (F77_CHARACTER_ARRAY_ARG_TYPE *)X argument
691 #define F77_INTEGER8_FUNCTION(X) F77_INTEGER8_TYPE F77_EXTERNAL_NAME(X) argument
692 #define INTEGER8(X) F77_INTEGER8_TYPE *CNF_CONST X argument
693 #define INTEGER8_FUNCTION(X) F77_INTEGER8_TYPE (*X)() argument
694 #define INTEGER8_ARRAY(X) F77_INTEGER8_TYPE *CNF_CONST X argument
695 #define GENPTR_INTEGER8(X) argument
696 #define GENPTR_INTEGER8_ARRAY(X) argument
697 #define GENPTR_INTEGER8_FUNCTION(X) argument
698 #define DECLARE_INTEGER8(X) F77_INTEGER8_TYPE X argument
699 #define DECLARE_INTEGER8_ARRAY(X,D) F77_INTEGER8_TYPE X[D] argument
700 #define DECLARE_INTEGER8_ARRAY_DYN(X) F77_INTEGER8_TYPE *X = NULL argument
701 #define F77_CREATE_INTEGER8_ARRAY(X,N) argument
703 #define F77_FREE_INTEGER8(X) argument
708 #define INTEGER8_ARG(X) X argument
709 #define INTEGER8_FUNCTION_ARG(X) X argument
710 #define INTEGER8_ARRAY_ARG(X) (F77_INTEGER8_TYPE *)X argument
731 #define F77_EXTERNAL_NAME(X) X/**/_ argument
739 #define TRAIL(X) ,@TRAIL_TYPE@ X/**/_length argument
745 #define DECLARE_CHARACTER(X,L) F77_CHARACTER_TYPE X[L]; \ argument
748 #define DECLARE_CHARACTER_ARRAY(X,L,D) F77_CHARACTER_TYPE X[D][L]; \ argument
751 #define DECLARE_CHARACTER_DYN(X) F77_CHARACTER_TYPE *X;\ argument
754 #define DECLARE_CHARACTER_ARRAY_DYN(X) F77_CHARACTER_TYPE *X;\ argument
757 #define F77_CREATE_CHARACTER(X,L) X=cnfCref(L);\ argument
760 #define F77_CREATE_CHARACTER_ARRAY(X,L,N) \ argument
766 #define TRAIL_ARG(X) ,X/**/_length argument
823 #define F77_EXTERNAL_NAME(X) X argument
842 #define CHARACTER(X) F77_CHARACTER_ARG_TYPE *CNF_CONST X/**/_arg argument
844 #define TRAIL(X) argument
846 #define CHARACTER_ARRAY(X) F77_CHARACTER_ARRAY_ARG_TYPE *CNF_CONST X/**/_arg argument
848 #define GENPTR_CHARACTER(X) \ argument
852 #define GENPTR_CHARACTER_ARRAY(X) GENPTR_CHARACTER(X) argument
860 #define F77_ISTRUE(X) ( (X)&1 ) argument
862 #define F77_ISFALSE(X) ( ! ( (X)&1 ) ) argument
874 #define DECLARE_CHARACTER(X,L) \ argument
880 #define DECLARE_CHARACTER_ARRAY(X,L,D) \ argument
889 #define DECLARE_CHARACTER_DYN(X) int X/**/_length;\ argument
893 #define DECLARE_CHARACTER_ARRAY_DYN(X) int X/**/_length;\ argument
897 #define F77_CREATE_CHARACTER(X,L) X/**/_arg = cnfCref(L);\ argument
901 #define F77_CREATE_CHARACTER_ARRAY(X,L,N) \ argument
903 #define F77_CREATE_CHARACTER_ARRAY_M(X,L,N,D) X/**/_arg = cnfCrefa(L,N,D);\ argument
907 #define F77_FREE_CHARACTER(X) cnfFreef( X/**/_arg ) argument
912 #define CHARACTER_ARG(X) X/**/_arg argument
914 #define CHARACTER_ARRAY_ARG(X) X/**/_arg argument
916 #define TRAIL_ARG(X) argument
964 #define F77_ISTRUE(X) ( (X)&1 ) argument
966 #define F77_ISFALSE(X) ( ! ( (X)&1 ) ) argument