begin model noInit
| begin input variables
| end input variables;
| begin output variables
| end output variables;
| begin process 0
| | main function : main;
| | begin process variables
| | | MPI_REQUEST_NULL : pointer(31)<Record[MPIX_Comm_Record; id:int]>;
| | | | libmpi.c 85.0--85.55: "MPI_Request MPI_REQUEST_NULL = (MPIX_Comm_Record*)NULL;"
| | | MPI_STATUS_IGNORE : pointer(32)<Record[MPI_Status; MPI_SOURCE:int, MPI_TAG:int, SIZE:int]>;
| | | | libmpi.c 89.0--89.50: "MPI_Status *MPI_STATUS_IGNORE = (MPI_Status*)NULL;"
| | | MPIX_State : int;
| | | | libmpi.c 94.0--94.19: "int MPIX_State = 0;"
| | | myrank : int;
| | | | noInit.c 3.0--3.11: "int myrank;"
| | end process variables;
| | begin function main
| | | | noInit.c 5.0--5.11: "void main()"
| | | start location : 0;
| | | begin location 0
| | | | kind : INVOCATION;
| | | | MPI_Comm_rank(MPI_COMM_WORLD,&myrank); goto location 1;
| | | | | noInit.c 6.1--6.40: "MPI_Comm_rank(MPI_COMM_WORLD, &myrank);"
| | | end location 0;
| | | begin location 1
| | | | kind : RETURN;
| | | | return null; goto location 2;
| | | | | noInit.c 7.0--7.0: "}"
| | | end location 1;
| | | begin location 2
| | | | kind : TERMINAL;
| | | end location 2;
| | end function main;
| | begin function MPI_Comm_rank
| | | | libmpi.c 113.0--113.45: "int MPI_Comm_rank(MPI_Comm _comm, int *_rank)"
| | | begin formal parameters
| | | | _comm : int;
| | | | | libmpi.c 113.18--113.32: "MPI_Comm _comm"
| | | | _rank : pointer(33)<int>;
| | | | | libmpi.c 113.34--113.44: "int *_rank"
| | | end formal parameters;
| | | start location : 0;
| | | begin location 0
| | | | kind : ASSERTION;
| | | | assert MPIX_State==MPIX_INITIALIZED; Attempt to call MPI_Comm_rank when MPI is not initialized goto location 1;
| | | | | libmpi.c 114.15--114.114: "assert MPIX_State == MPIX_INITIALIZED, "Attempt to call MPI_Comm_rank when MPI is not initialized";"
| | | end location 0;
| | | begin location 1
| | | | kind : ASSERTION;
| | | | assert _comm==MPI_COMM_WORLD;  goto location 2;
| | | | | libmpi.c 116.15--116.46: "assert _comm == MPI_COMM_WORLD;"
| | | end location 1;
| | | begin location 2
| | | | kind : ASSIGNMENT;
| | | | *_rank = 0; goto location 3;
| | | | | libmpi.c 117.2--117.15: "*_rank = PID;"
| | | end location 2;
| | | begin location 3
| | | | kind : RETURN;
| | | | return 0; goto location 4;
| | | | | libmpi.c 118.2--118.11: "return 0;"
| | | end location 3;
| | | begin location 4
| | | | kind : TERMINAL;
| | | end location 4;
| | end function MPI_Comm_rank;
| end process 0;
| begin process 1
| | main function : main;
| | begin process variables
| | | MPI_REQUEST_NULL : pointer(31)<Record[MPIX_Comm_Record; id:int]>;
| | | | libmpi.c 85.0--85.55: "MPI_Request MPI_REQUEST_NULL = (MPIX_Comm_Record*)NULL;"
| | | MPI_STATUS_IGNORE : pointer(32)<Record[MPI_Status; MPI_SOURCE:int, MPI_TAG:int, SIZE:int]>;
| | | | libmpi.c 89.0--89.50: "MPI_Status *MPI_STATUS_IGNORE = (MPI_Status*)NULL;"
| | | MPIX_State : int;
| | | | libmpi.c 94.0--94.19: "int MPIX_State = 0;"
| | | myrank : int;
| | | | noInit.c 3.0--3.11: "int myrank;"
| | end process variables;
| | begin function main
| | | | noInit.c 5.0--5.11: "void main()"
| | | start location : 0;
| | | begin location 0
| | | | kind : INVOCATION;
| | | | MPI_Comm_rank(MPI_COMM_WORLD,&myrank); goto location 1;
| | | | | noInit.c 6.1--6.40: "MPI_Comm_rank(MPI_COMM_WORLD, &myrank);"
| | | end location 0;
| | | begin location 1
| | | | kind : RETURN;
| | | | return null; goto location 2;
| | | | | noInit.c 7.0--7.0: "}"
| | | end location 1;
| | | begin location 2
| | | | kind : TERMINAL;
| | | end location 2;
| | end function main;
| | begin function MPI_Comm_rank
| | | | libmpi.c 113.0--113.45: "int MPI_Comm_rank(MPI_Comm _comm, int *_rank)"
| | | begin formal parameters
| | | | _comm : int;
| | | | | libmpi.c 113.18--113.32: "MPI_Comm _comm"
| | | | _rank : pointer(33)<int>;
| | | | | libmpi.c 113.34--113.44: "int *_rank"
| | | end formal parameters;
| | | start location : 0;
| | | begin location 0
| | | | kind : ASSERTION;
| | | | assert MPIX_State==MPIX_INITIALIZED; Attempt to call MPI_Comm_rank when MPI is not initialized goto location 1;
| | | | | libmpi.c 114.15--114.114: "assert MPIX_State == MPIX_INITIALIZED, "Attempt to call MPI_Comm_rank when MPI is not initialized";"
| | | end location 0;
| | | begin location 1
| | | | kind : ASSERTION;
| | | | assert _comm==MPI_COMM_WORLD;  goto location 2;
| | | | | libmpi.c 116.15--116.46: "assert _comm == MPI_COMM_WORLD;"
| | | end location 1;
| | | begin location 2
| | | | kind : ASSIGNMENT;
| | | | *_rank = 1; goto location 3;
| | | | | libmpi.c 117.2--117.15: "*_rank = PID;"
| | | end location 2;
| | | begin location 3
| | | | kind : RETURN;
| | | | return 0; goto location 4;
| | | | | libmpi.c 118.2--118.11: "return 0;"
| | | end location 3;
| | | begin location 4
| | | | kind : TERMINAL;
| | | end location 4;
| | end function MPI_Comm_rank;
| end process 1;
| begin process 2
| | main function : main;
| | begin process variables
| | | MPI_REQUEST_NULL : pointer(31)<Record[MPIX_Comm_Record; id:int]>;
| | | | libmpi.c 85.0--85.55: "MPI_Request MPI_REQUEST_NULL = (MPIX_Comm_Record*)NULL;"
| | | MPI_STATUS_IGNORE : pointer(32)<Record[MPI_Status; MPI_SOURCE:int, MPI_TAG:int, SIZE:int]>;
| | | | libmpi.c 89.0--89.50: "MPI_Status *MPI_STATUS_IGNORE = (MPI_Status*)NULL;"
| | | MPIX_State : int;
| | | | libmpi.c 94.0--94.19: "int MPIX_State = 0;"
| | | myrank : int;
| | | | noInit.c 3.0--3.11: "int myrank;"
| | end process variables;
| | begin function main
| | | | noInit.c 5.0--5.11: "void main()"
| | | start location : 0;
| | | begin location 0
| | | | kind : INVOCATION;
| | | | MPI_Comm_rank(MPI_COMM_WORLD,&myrank); goto location 1;
| | | | | noInit.c 6.1--6.40: "MPI_Comm_rank(MPI_COMM_WORLD, &myrank);"
| | | end location 0;
| | | begin location 1
| | | | kind : RETURN;
| | | | return null; goto location 2;
| | | | | noInit.c 7.0--7.0: "}"
| | | end location 1;
| | | begin location 2
| | | | kind : TERMINAL;
| | | end location 2;
| | end function main;
| | begin function MPI_Comm_rank
| | | | libmpi.c 113.0--113.45: "int MPI_Comm_rank(MPI_Comm _comm, int *_rank)"
| | | begin formal parameters
| | | | _comm : int;
| | | | | libmpi.c 113.18--113.32: "MPI_Comm _comm"
| | | | _rank : pointer(33)<int>;
| | | | | libmpi.c 113.34--113.44: "int *_rank"
| | | end formal parameters;
| | | start location : 0;
| | | begin location 0
| | | | kind : ASSERTION;
| | | | assert MPIX_State==MPIX_INITIALIZED; Attempt to call MPI_Comm_rank when MPI is not initialized goto location 1;
| | | | | libmpi.c 114.15--114.114: "assert MPIX_State == MPIX_INITIALIZED, "Attempt to call MPI_Comm_rank when MPI is not initialized";"
| | | end location 0;
| | | begin location 1
| | | | kind : ASSERTION;
| | | | assert _comm==MPI_COMM_WORLD;  goto location 2;
| | | | | libmpi.c 116.15--116.46: "assert _comm == MPI_COMM_WORLD;"
| | | end location 1;
| | | begin location 2
| | | | kind : ASSIGNMENT;
| | | | *_rank = 2; goto location 3;
| | | | | libmpi.c 117.2--117.15: "*_rank = PID;"
| | | end location 2;
| | | begin location 3
| | | | kind : RETURN;
| | | | return 0; goto location 4;
| | | | | libmpi.c 118.2--118.11: "return 0;"
| | | end location 3;
| | | begin location 4
| | | | kind : TERMINAL;
| | | end location 4;
| | end function MPI_Comm_rank;
| end process 2;
end model noInit.
