bordliptop=(boxzsize+lipthick)/2.0
bordlipbot=bordliptop-lipthick
C endif
- if ((bordliptop.gt.boxzsize).or.(borlipbot.lt.0.0))
+ if ((bordliptop.gt.boxzsize).or.(bordlipbot.lt.0.0))
& write(iout,*) "WARNING WRONG SIZE OF LIPIDIC PHASE"
buflipbot=bordlipbot+lipbufthick
bufliptop=bordliptop-lipbufthick