Searched defs:enleve_tous_blancs (Results 1 – 1 of 1) sorted by relevance
1 subroutine enleve_tous_blancs(cara,long,lmax) subroutine2 character*1 cara(lmax)3 character*1024 bid10 10 ideb=ideb+118 20 ifin=ifin-129 30 ifin = min(ifin,ifin2)