37                 double* array1,  in Write_M2N()  argument
115 …     writedatablock( &f_descriptor, fieldtag_s, (void*)(array1), &isize, "double", phasta_iotype );  in Write_M2N()
192                        double* array1 ) {  in Write_M2N_SolOnly()  argument
269 …     writedatablock( &f_descriptor, fieldtag_s, (void*)(array1), &isize, "double", phasta_iotype );  in Write_M2N_SolOnly()
525                 double* array1,  in Write_Restart()  argument
594 …     writedatablock( &f_descriptor, fieldtag_s, (void*)(array1), &isize, "double", phasta_iotype );  in Write_Restart()
634               double* array1 ) {  in Write_Error()  argument
688         writedatablock( &f_descriptor, fieldtag, (void*)array1, &isize, "double", phasta_iotype );  in Write_Error()
707               double* array1 ) { //TO BE UPDATED FOR SYNCIO  in Write_Displ()  argument
729     writedatablock( &irstou, "displacement", (void*)(array1), &isize, "double", phasta_iotype );  in Write_Displ()
1063                 double* array1 ) {  in Write_d2wall()  argument
1126 …     writedatablock( &f_descriptor, fieldtag_s, (void*)(array1), &isize, "double", phasta_iotype );  in Write_d2wall()