823       nomodule.itvn = 1;  in input_fform()
825       nomodule.itvn = 0;  in input_fform()
827     if ( nomodule.itvn ==1)  in input_fform()
828       nomodule.bcttimescale = inp.GetValue("BCT Time Scale Factor");  in input_fform()
830     nomodule.ipvsq=0;  in input_fform()
831     if( (nomodule.icardio = inp.GetValue("Number of Coupled Surfaces")) ){  in input_fform()
832       if ( nomodule.icardio > MAXSURF ) {  in input_fform()
837         nomodule.ipvsq=0;  in input_fform()
839         nomodule.ipvsq=1;  in input_fform()
841         nomodule.ipvsq=2;  in input_fform()
843         nomodule.ipvsq=3;  in input_fform()
845       if( (nomodule.numResistSrfs=inp.GetValue("Number of Resistance Surfaces")) ){  in input_fform()
847           for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistResist[i] = 0;  in input_fform()
848           for(i=0; i< nomodule.numResistSrfs; i++){  in input_fform()
849               nomodule.nsrflistResist[i+1] = ivec[i];  in input_fform()
852           for(i =0; i< MAXSURF+1 ; i++) nomodule.ValueListResist[i] = 0;  in input_fform()
853           for(i =0; i< nomodule.numResistSrfs ; i++) nomodule.ValueListResist[i+1] = vec[i];  in input_fform()
856       if( (nomodule.numImpSrfs=inp.GetValue("Number of Impedance Surfaces")) ){  in input_fform()
858           for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistImp[i] = 0;  in input_fform()
859           for(i=0; i< nomodule.numImpSrfs; i++){  in input_fform()
860               nomodule.nsrflistImp[i+1] = ivec[i];  in input_fform()
863               nomodule.impfile = 1; else nomodule.impfile = 0;  in input_fform()
865       if( (nomodule.numRCRSrfs=inp.GetValue("Number of RCR Surfaces")) ){  in input_fform()
867           for(i=0;i<MAXSURF+1; i++) nomodule.nsrflistRCR[i] = 0;  in input_fform()
868           for(i=0; i< nomodule.numRCRSrfs; i++){  in input_fform()
869               nomodule.nsrflistRCR[i+1] = ivec[i];  in input_fform()
872               nomodule.ircrfile = 1; else nomodule.ircrfile = 0;  in input_fform()
875     nomodule.ideformwall = 0;  in input_fform()
877         nomodule.ideformwall = 1;  in input_fform()
878         nomodule.rhovw = inp.GetValue("Density of Vessel Wall");  in input_fform()
879         nomodule.thicknessvw = inp.GetValue("Thickness of Vessel Wall");  in input_fform()
880         nomodule.evw = inp.GetValue("Young Mod of Vessel Wall");  in input_fform()
881         nomodule.rnuvw = inp.GetValue("Poisson Ratio of Vessel Wall");  in input_fform()
882         nomodule.rshearconstantvw = inp.GetValue("Shear Constant of Vessel Wall");  in input_fform()
883         if((string)inp.GetValue("Wall Mass Matrix for LHS") == "True") nomodule.iwallmassfactor = 1;  in input_fform()
884         else nomodule.iwallmassfactor = 0;  in input_fform()
885 …  if((string)inp.GetValue("Wall Stiffness Matrix for LHS") == "True") nomodule.iwallstiffactor = 1;  in input_fform()
886         else nomodule.iwallstiffactor = 0;   in input_fform()
888     nomodule.iviscflux = 1;  in input_fform()
889     if((string)inp.GetValue("Viscous Flux Flag") == "True") nomodule.iviscflux = 1;  in input_fform()
890     if((string)inp.GetValue("Viscous Flux Flag") == "False") nomodule.iviscflux = 0;  in input_fform()