MODULEm_trisrt!! orders (k1,x1), (k2,x2), (k3,x3) such that x1 < x2 < x3!CONTAINSSUBROUTINEtrisrt(x1,x2,x3,k1,k2,k3)IMPLICITNONEINTEGER,INTENT(INOUT)::k1,k2,k3REAL,INTENT(INOUT)::x1,x2,x3INTEGERkREALxIF(x2<x1)THEN! interchange x1 and x2x=x1;x1=x2;x2=xk=k1;k1=k2;k2=kENDIFIF(x3<x1)THEN! interchange x1 and x3x=x1;x1=x3;x3=xk=k1;k1=k3;k3=kENDIFIF(x3<x2)THEN! interchange x2 and x3x=x2;x2=x3;x3=xk=k2;k2=k3;k3=kENDIFENDSUBROUTINEtrisrtENDMODULEm_trisrt