| 8934 | |
| 8935 | |
| 8936 | int |
| 8937 | setPrecision(ClientData clientData, Tcl_Interp *interp, int argc, TCL_Char **argv) |
| 8938 | { |
| 8939 | |
| 8940 | if (argc < 2) { |
| 8941 | opserr << "WARNING setPrecision precision? - no precision value supplied\n"; |
| 8942 | return TCL_ERROR; |
| 8943 | } |
| 8944 | int precision; |
| 8945 | if (Tcl_GetInt(interp, argv[1], &precision) != TCL_OK) { |
| 8946 | opserr << "WARNING setPrecision precision? - error reading precision value supplied\n"; |
| 8947 | return TCL_ERROR; |
| 8948 | } |
| 8949 | opserr.setPrecision(precision); |
| 8950 | |
| 8951 | return TCL_OK; |
| 8952 | } |
| 8953 | |
| 8954 | |
| 8955 | int |
nothing calls this directly
no test coverage detected