Erreur FORTRAN avec CODE::BLOCKS

Bonjour
la pièce jointe contient le programme que j'ai essayé de l'utiliser pour résoudre un système linéaire.
lors de la compilation , j'ai eu ces erreurs que je les comprend pas:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|5933|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 5933 .23:| ||Warning: 'perror' declared is also the name of an intrinsic. It can only be called via an explicit interface or if declared EXTERNAL.| C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|365|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 365 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|736|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 736 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|1088|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 1088 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|1493|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 1493 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|1885|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 1885 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|2303|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 2303 .72:| ||Error: Too many arguments in call to 'perror' | C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f|2698|C:\Users\manaii\Desktop\ESSAIS\modele\150\dsrc2c.f 2698 .72:| ||Error: Too many arguments in call to 'perror' | ||=== Build finished: 7 errors, 1 warnings (0 minutes, 0 seconds) ===|

---

Prière de m'aider et me renseigner d'où vient cette erreur.
Merci

Les lignes 1 et 2 disent qu'à la ligne 5933, il y a une fonction perror qui est aussi une fonction intrinsèque du compilateur. Il te dit aussi que pour éviter l’ambiguïté, tu devras déclarer ta fonction perror dans une interface ou en external dans chaque sous-programme où tu l'utilises. En gros, tu devras dire au compilateur que quand tu fais call perror, tu appelle ta fonction et non la sienne.

Toutes les autres erreurs découlent du fait que le compilateur pense que les call perror sont des calls à la version intrinsèque et non à la tienne, et il n'y pas le bon nombre d'arguments.

Ainsi, tu dois ajouter une ligne "external perror" dans chaque sous-programme avant les lignes exécutables pour qu'il comprenne que tu fais appel à ta version (celle qui est externe au compilateur et non celle qui est interne). Il serait encore plus simple de la renommer en utilisant un nom non conflictuel. Tu n'aurais que 8 lignes à changer.