06 September 2021 6:53:57.174 PM ccs_to_st_test(): FORTRAN90 version Test ccs_to_st(). TEST01 Convert a 1-based CCS matrix to ST format. The CCS matrix: # I J A ---- ---- ---- ---------------- 1 1 1 2.0000000 2 2 1 3.0000000 3 1 2 3.0000000 4 3 2 -1.0000000 5 5 2 4.0000000 6 2 3 4.0000000 7 3 3 -3.0000000 8 4 3 1.0000000 9 5 3 2.0000000 10 3 4 2.0000000 11 2 5 6.0000000 12 5 5 1.0000000 The ST matrix: # I J A ---- ---- ---- -------------- 1 1 1 2.0000000 2 2 1 3.0000000 3 1 2 3.0000000 4 3 2 -1.0000000 5 5 2 4.0000000 6 2 3 4.0000000 7 3 3 -3.0000000 8 4 3 1.0000000 9 5 3 2.0000000 10 3 4 2.0000000 11 2 5 6.0000000 12 5 5 1.0000000 TEST02 Convert a 0-based CCS matrix to ST format. The CCS matrix: # I J A ---- ---- ---- ---------------- 0 0 0 2.0000000 1 1 0 3.0000000 2 0 1 3.0000000 3 2 1 -1.0000000 4 4 1 4.0000000 5 1 2 4.0000000 6 2 2 -3.0000000 7 3 2 1.0000000 8 4 2 2.0000000 9 2 3 2.0000000 10 1 4 6.0000000 11 4 4 1.0000000 The ST matrix: # I J A ---- ---- ---- -------------- 1 0 0 2.0000000 2 1 0 3.0000000 3 0 1 3.0000000 4 2 1 -1.0000000 5 4 1 4.0000000 6 1 2 4.0000000 7 2 2 -3.0000000 8 3 2 1.0000000 9 4 2 2.0000000 10 2 3 2.0000000 11 1 4 6.0000000 12 4 4 1.0000000 ccs_to_st_test(): Normal end of execution. 06 September 2021 6:53:57.174 PM