- call xdrfint(ixdrf, ihpb(k), iret)
- if (iret.eq.0) goto 101
- call xdrfint(ixdrf, jhpb(k), iret)
- if (iret.eq.0) goto 101
+cc if (dyn_ss) then
+cc call xdrfint(ixdrf, idssb(k), iret)
+cc if (iret.eq.0) goto 101
+cc call xdrfint(ixdrf, jdssb(k), iret)
+cc if (iret.eq.0) goto 101
+cc idssb(k)=idssb(k)-nres
+cc jdssb(k)=jdssb(k)-nres
+cc write(iout,*) "TUTU", idssb(k),jdssb(k)
+cc else
+ call xdrfint(ixdrf, ihpb(k), iret)
+ if (iret.eq.0) goto 101
+ call xdrfint(ixdrf, jhpb(k), iret)
+ if (iret.eq.0) goto 101
+cc endif