text:
HANSARD REVISE * NUMERO 227
Le mercredi 12 mai 1999
LES MALADIES IMMUNOLOGIQUES ET NEUROLOGIQUES CHRONIQUES
LA JOURNEE DU SYNDROME DE FATIGUE CHRONIQUE
L'ECOLE THERESE-MARTIN DE JOLIETTE
L'ACCORD DE LIBRE-ECHANGE NORD-AMERICAIN
LA SEMAINE QUEBECOISE DE LA FAMILLE
CINQUANTE FACONS DE S'ECHAPPER DE NOS PRISONS
LA FEDERATION DE L'AGE D'OR DE LA MAURICIE
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
LE MINISTRE DU DEVELOPPEMENT DES RESSOURCES HUMAINES
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
Le tres hon. Jean Chretien
LE MINISTRE DU DEVELOPPEMENT DES RESSOURCES HUMAINES
L'hon. Pierre S. Pettigrew
L'hon. Pierre S. Pettigrew
LE HAUT-COMMISSARIAT DES NATIONS UNIES POUR LES REFUGIES
M. Gurbax Singh Malhi
L'OFFICE DE L'EFFICACITE ENERGETIQUE
M. Pierre de Savoye
Permis de peche a la baleine grise
REPONSE DU GOUVERNEMENT A DES PETITIONS
LES COMITES DE LA CHAMBRE
Procedure et affaires de la Chambre
Justice et droits de la personne
LOI INSTITUANT LA JOURNEE TERRY FOX
Presentation et premiere lecture
Mme Rose-Marie Ur
LOI CANADIENNE SUR LA PROTECTION DE L'ENVIRONNEMENT (1999)
Mme Jocelyne Girard-Bujold
Motions nos 26 et 61
Mme Jocelyne Girard-Bujold
Motions nos 68 et 71
Motions nos 101 et 108
Motions nos 115 et 117
L'hon. Pierre S. Pettigrew
Motions nos 130, 132, 135 et 206
Mme Jocelyne Girard-Bujold
LOI SUR L'OFFICE D'INVESTISSEMENT DES REGIMES DE PENSIONS DU
Projet de loi C-78-Avis de motion concernant l'attribution
LA LOI CANADIENNE SUR LA PROTECTION DE L'ENVIRONNEMENT DE 1999
Mme Karen Kraft Sloan
HANSARD REVISE * NUMERO 227
Le mercredi 12 mai 1999
La seance est ouverte a 14 heures.
Les deputes se levent et chantent O Canada.]
LES MALADIES IMMUNOLOGIQUES ET NEUROLOGIQUES CHRONIQUES
M. Janko Peric (Cambridge, Lib.):
La plupart des gens atteints sont incapables de travailler a cause de leur douleur.
Cependant, leur souffrance n'est pas simplement physique.
Elle devra vivre avec cette maladie pour le reste de sa vie.
On a egalement diagnostique recemment le meme trouble chez sa fille de 16 ans.
M. Deepak Obhrai (Calgary-Est, Ref.):
LA JOURNEE DU SYNDROME DE FATIGUE CHRONIQUE
L'hon. Andy Scott (Fredericton, Lib.):
M. Bernard Patry (Pierrefonds-Dollard, Lib.):
Monsieur le President, nous celebrons aujourd'hui la Journee nationale de la sante.
Le 12 mai marque egalement l'anniversaire de naissance de Mme Florence Nightingale.
L'ECOLE THERESE-MARTIN DE JOLIETTE
M. Rene Laurin (Joliette, BQ):
Mme Marlene Jennings (Notre-Dame-de-Grace-Lachine, Lib.):
M. Monte Solberg (Medicine Hat, Ref.):
Monsieur le President, voici encore un poeme d'un Canadien surtaxe:
Ce simple citoyen, ce pauvre mortel,
Taxez sa maison, taxez son lit,
Taxez son debut de calvitie;
Taxez son pain, sa viande taxez,
Taxez les souliers qu'il a aux pieds!
Taxez sa pipe et ses cigarettes,
Montrez-lui bien qui vous etes!
Taxez sa voiture et son carburant;
Taxez aussi la route qu'il prend!
Taxez le fermier et sa basse-cour,
Taxez son chien qui hurle tout le jour;
Taxez sa charrue, taxez ses oripeaux,
Taxez son mouchoir, s'il le faut!
Taxez les cris de son cochon,
Taxez ses bottes usees aux talons!
Taxez sa vache et taxez son veau,
Taxez-le s'il ose rire, le fin finaud;
Taxez sa grange et taxez sa terre,
Taxez les ampoules qu'il a pu se faire!
Taxez aussi l'eau et taxez l'air,
Taxez donc jusqu'a la lumiere!
Taxez les vivants et taxez les morts,
Taxez l'enfant a naitre, encore!
Taxez-les tous pour qu'ils aient mal,
Arrangez-vous pour que ce soit infernal!
L'ACCORD DE LIBRE-ECHANGE NORD-AMERICAIN
Mme Aileen Carroll (Barrie-Simcoe-Bradford, Lib.):
LA SEMAINE QUEBECOISE DE LA FAMILLE
Mme Christiane Gagnon (Quebec, BQ):
M. Hec Clouthier (Renfrew-Nipissing-Pembroke, Lib.):
La Marine royale canadienne a perdu 24 navires de guerre et 2 024 marins.
CINQUANTE FACONS DE S'ECHAPPER DE NOS PRISONS
M. Gary Lunn (Saanich-Gulf Islands, Ref.):
Tu peux te glisser entre les barreaux Romeo,
T'enfuir par les lavabos Mario.
Te laisse pas intimider Andre, c'est tres simple de s'evader.
Tu peux sauter dans un autobus Ti-Gus,
Et prendre la poudre d'escampette.
Meme pas besoin de cle, mon Roger,
T'as qu'a passer la porte sans escorte.
Tu peux monter dans l'auto d'un ami, Remi.
Il y a tellement de facons Gaston,
De sortir de prison.
T'as meme pas besoin de tuer, Joe,
Parce que le systeme est tout doux, Ti-Lou.
Pas de cadenas a briser, Jose,
Dans le temps de le dire, t'es dehors Hector.
T'as qu'a dire au revoir et salut, Manu.
Meme pas besoin d'etre agile, mon Gilles,
Pour franchir les hautes grilles.
Ne crains pas la police montee, Timothee,
Elle n'a pas de fonds en Colombie-Britannique.
Il est si facile de s'envoler
Les deputes ne doivent pas utiliser le nom d'autres deputes dans les declarations.
M. Rick Limoges (Windsor-St.
Monsieur le President, c'est moi qui represente maintenant la circonscription de Windsor-St.
Je n'ai pas l'intention de remplacer Shaughnessy.
Sincerement, je ne saurais pas par ou commencer.
Mon intention est plutot de servir de mon mieux la population de Windsor-St.
Clair en particulier et la population canadienne en general.
Je sais bien que nos citoyens esperent que le travail du gouvernement se poursuive.
Mme Alexa McDonough (Halifax, NPD):
M. John Herron (Fundy-Royal, PC):
Deja, le Nouveau-Brunswick a perdu quatre specialistes et un autre prevoit partir bientot.
Je mets le premier ministre Theriault au defi de s'attaquer a ce probleme.
S'il ne le fait pas, Bernard Lord s'en occupera.
LA FEDERATION DE L'AGE D'OR DE LA MAURICIE
M. Yves Rocheleau (Trois-Rivieres, BQ):
M. Preston Manning (chef de l'opposition, Ref.):
Le tres hon. Jean Chretien (premier ministre, Lib.):
Monsieur le President, nous avons reduit les impots.
M. Preston Manning (chef de l'opposition, Ref.):
Pourquoi ne le fait-il pas?
Le tres hon. Jean Chretien (premier ministre, Lib.):
Nous avons aussi pris d'autres mesures, comme je l'ai explique plus tot.
C'est ce qui nous donnera une societe meilleure.
M. Preston Manning (chef de l'opposition, Ref.):
Le tres hon. Jean Chretien (premier ministre, Lib.):
C'est dire que nous sommes sur la bonne voie.
Mme Deborah Grey (Edmonton-Nord, Ref.):
Monsieur le President, le gouvernement parle d'approche ponderee.
Voici pourtant les faits.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Monsieur le President, la deputee me fait tout un compliment.
Mme Deborah Grey (Edmonton-Nord, Ref.):
Ce ne sont pas les liberaux.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Cela ne pose pas de probleme.
C'est ce qui s'est produit.
LE MINISTRE DU DEVELOPPEMENT DES RESSOURCES HUMAINES
M. Gilles Duceppe (Laurier-Sainte-Marie, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Monsieur le President, on va regarder les choses avec un peu de perspective.
Premierement, les documents qui ont ete demandes par le journaliste lui ont ete remis.
Il n'y a rien la.
M. Gilles Duceppe (Laurier-Sainte-Marie, BQ):
Monsieur le President, c'est une toute petite affaire que le commissaire qualifie d'inacceptable.
Il a repondu 95 jours apres l'echeance legale.
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Il y a ici une transparence totale du processus.
M. Michel Gauthier (Roberval, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Nous avons parfaitement respecte la Loi sur l'acces a l'information.
Il arrive, une fois de temps a autre, qu'on en echappe une.
M. Michel Gauthier (Roberval, BQ):
On le savait, ca, on n'a pas besoin que le ministre nous le dise.
Je demande au depute de Roberval de retirer le mot mentait.
Le chef du Nouveau Parti democratique a la parole.
Mme Alexa McDonough (Halifax, NPD):
Disons qu'il est vite sur le rebond.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Ils sont ici en tant que refugies.
Mme Alexa McDonough (Halifax, NPD):
Monsieur le President, ce n'est pas un petit probleme qui pourrait survenir.
C'est un probleme auquel sont maintenant confrontes tous les refugies qui viennent au Canada.
Le haut commissaire aux refugies des Nations Unies l'a condamnee.
La Commission canadienne des droits de la personne l'a condamnee.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Monsieur le President, cette politique a ete instituee il y a quelques annees.
Le probleme, ce n'est pas que des gens refusent de venir au Canada.
Je pense que la deputee tente de tirer des avantages politiques de cette affaire.
Mme Elsie Wayne (Saint John, PC):
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
Monsieur le President, la reserve constitue un important pilier des Forces canadiennes.
Les reservistes remplissent de nombreux roles, tant au pays qu'a l'etranger.
C'est le ministre qui prendra la decision finale.
Mme Elsie Wayne (Saint John, PC):
Le document donne un apercu du plan du gouvernement en vue de reduire les services.
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
M. Monte Solberg (Medicine Hat, Ref.):
Ces excedents appartiennent aux Canadiens ecrases d'impots.
Ils n'appartiennent ni au gouvernement ni au premier ministre.
Quand le gouvernement va-t-il rendre cet argent aux contribuables?
Le tres hon. Jean Chretien (premier ministre, Lib.):
Monsieur le President, bien sur que nous voulons de bons partis nationaux au Canada.
Au lieu d'avoir deux partis de droite, nous en avons maintenant trois.
Si le Parti reformiste continue ainsi, nous resterons au pouvoir pendant longtemps.
Le depute de Medicine Hat a la parole.
M. Monte Solberg (Medicine Hat, Ref.):
Il aurait interet a faire preuve de prudence.
Les divisions peuvent etre nombreuses dans son parti.
Le premier ministre dit qu'il veut aider les Canadiens pauvres.
Le tres hon. Jean Chretien (premier ministre, Lib.):
Nous faisons beaucoup de progres.
Nous devons investir dans l'avenir des jeunes, par exemple.
LE MINISTRE DU DEVELOPPEMENT DES RESSOURCES HUMAINES
M. Paul Crete (Kamouraska-Riviere-du-Loup-Temiscouata-Les Basques, BQ):
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Les documents ont ete remis aux journalistes qui les demandaient.
M. Paul Crete (Kamouraska-Riviere-du-Loup-Temiscouata-Les Basques, BQ):
Monsieur le President, la lettre du commissaire a l'information est claire.
Ceci est tout a fait inacceptable.
L'hon. Pierre S. Pettigrew (ministre du Developpement des ressources humaines, Lib.):
Monsieur le President, on dirait qu'on est en campagne referendaire.
L'honorable ministre du Developpement des ressources humaines a la parole.
L'hon. Pierre S. Pettigrew:
D'autre part, mon bureau n'a jamais sciemment retarde la diffusion d'informations.
M. Grant Hill (Macleod, Ref.):
L'hon. Allan Rock (ministre de la Sante, Lib.):
M. Grant Hill (Macleod, Ref.):
Monsieur le President, voila un autre exemple de mathematiques a la liberale.
Voila bien des mathematiques liberales, n'est-ce pas?
La question n'est pas uniquement theorique.
L'hon. Allan Rock (ministre de la Sante, Lib.):
Mais pour les reformistes, ce n'est pas une question d'argent.
Ce n'est pas une question technique.
C'est une question ideologique et politique.
Le Parti reformiste desapprouve l'approche du gouvernement canadien en matiere d'assurance-maladie.
Il desapprouve la Loi canadienne sur la sante.
L'approche des reformistes est differente.
LE HAUT-COMMISSARIAT DES NATIONS UNIES POUR LES REFUGIES
M. Daniel Turp (Beauharnois-Salaberry, BQ):
Monsieur le President, le gouvernement du Canada respecte toujours ses engagements.
Nous avons deja distribue l'argent promis.
M. Daniel Turp (Beauharnois-Salaberry, BQ):
Alors, il faut faire pression sur eux.
M. Reed Elley (Nanaimo-Cowichan, Ref.):
Nous avons maintenant un exemple du traitement que les liberaux reservent au tissu social.
L'hon. Allan Rock (ministre de la Sante, Lib.):
Nous savons a quelle enseigne logent les reformistes.
A notre avis, les soins de sante font partie integrante du tissu social du pays.
M. Reed Elley (Nanaimo-Cowichan, Ref.):
C'est la la facon de calculer des liberaux.
Quand le gouvernement commencera-t-il a prendre ses responsabilites...
Le ministre de la Sante a la parole.
L'hon. Allan Rock (ministre de la Sante, Lib.):
Le depute semble aimer le systeme de sante americain.
Mme Francine Lalonde (Mercier, BQ):
L'hon. John Manley (ministre de l'Industrie, Lib.):
Mais je vais nommer d'autres membres ainsi qu'un vice-president bientot.
M. Gurbax Singh Malhi (Bramalea-Gore-Malton-Springdale, Lib.):
Monsieur le President, j'ai une question a poser au ministre des Transports.
M. Stan Dromisky (secretaire parlementaire du ministre des Transports, Lib.):
La securite est au premier rang des priorites de Transports Canada.
L'experience passee nous a montre que ces mesures etaient efficaces.
En outre, le ministere des Transports fait parvenir aux abonnes une liste mensuelle des rappels.
M. John Cummins (Delta-South Richmond, Ref.):
La Charte ne s'applique que si la Constitution dit qu'elle s'applique.
L'hon. Jane Stewart (ministre des Affaires indiennes et du Nord canadien, Lib.):
Monsieur le President, il est clair que la Charte s'applique a tous les Canadiens.
M. John Cummins (Delta-South Richmond, Ref.):
La Charte ne s'applique que si la Constitution le stipule.
L'hon. Jane Stewart (ministre des Affaires indiennes et du Nord canadien, Lib.):
C'est exactement pareil pour les peuples autochtones.
Mme Wendy Lill (Dartmouth, NPD):
On se moque du processus parlementaire.
Quand le gouvernement fera-t-il connaitre aux Canadiens le contenu de l'accord secret?
L'hon. Sheila Copps (ministre du Patrimoine canadien, Lib.):
Monsieur le President, il n'y a pas d'accord.
Mme Wendy Lill (Dartmouth, NPD):
Monsieur le President, ce que je dis, je l'ai lu dans les journaux.
Je ne suis pas convaincue que cela protege notre industrie des periodiques.
En avons-nous l'assurance?
L'hon. Sheila Copps (ministre du Patrimoine canadien, Lib.):
M. David Price (Compton-Stanstead, PC):
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
Une etude est presentement en cours, on etudie la question des reservistes.
M. David Price (Compton-Stanstead, PC):
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
Mme Karen Redman (Kitchener-Centre, Lib.):
Monsieur le President, ma question s'adresse au ministre de la Sante.
L'hon. Allan Rock (ministre de la Sante, Lib.):
M. Gary Lunn (Saanich-Gulf Islands, Ref.):
Ma question est tres simple.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Monsieur le President, comme d'habitude, le depute est dans l'erreur.
L'OFFICE DE L'EFFICACITE ENERGETIQUE
M. Pierre de Savoye (Portneuf, BQ):
L'honorable ministre de l'Agriculture et de l'Agroalimentaire a la parole.
L'hon. Lyle Vanclief (ministre de l'Agriculture et de l'Agroalimentaire, Lib.):
M. Rick Laliberte (Riviere Churchill, NPD):
Cette loi doit etre appliquee par nos organismes de surveillance.
L'hon. Christine Stewart (ministre de l'Environnement, Lib.):
L'application de cette mesure legislative est une priorite pour mon parti.
M. Norman Doyle (St. John's-Est, PC):
Monsieur le President, ma question s'adresse au ministre de la Defense nationale.
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
Ce document a ete presente en avril.
M. Gary Lunn (Saanich-Gulf Islands, Ref.):
Il a ete delivre l'automne dernier.
Il ne fait pas preuve d'honnetete.
Il prend le parti des Americains.
Il leur permet de chasser la baleine grise dans nos eaux territoriales.
Nous voulons qu'il prenne le parti des Canadiens.
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
Monsieur le President, le depute devrait utiliser le terme insense plus judicieusement.
M. Yvan Bernier (Bonaventure-Gaspe-Iles-de-la-Madeleine-Pabok, BQ):
L'hon. David Anderson (ministre des Peches et des Oceans, Lib.):
C'est tres clair, c'est tres simple, et c'est bien connu des pecheurs.
M. Peter Mancini (Sydney-Victoria, NPD):
Comme le veut l'usage au Cap-Breton, ces femmes sont allees voir son patron.
Ma question est simple.
L'hon. Lyle Vanclief (ministre de l'Agriculture et de l'Agroalimentaire, Lib.):
C'est un programme equitable de cessation d'emploi et de retraite anticipee.
M. Norman Doyle (St. John's-Est, PC):
Le secretaire parlementaire peut-il etre un peu plus clair?
M. Robert Bertrand (secretaire parlementaire du ministre de la Defense nationale, Lib.):
Il ne s'agit pas d'une politique gouvernementale.
Le ministre a le dernier mot, et nous devrons attendre sa decision.
Mme Diane Ablonczy (Calgary-Nose Hill, Ref.):
Pis encore, il a dit que cette declaration fausse etait un fait.
Le compte rendu montrera ce que la deputee a dit aujourd'hui.
PERMIS DE PECHE A LA BALEINE GRISE
M. Gary Lunn (Saanich-Gulf Islands, Ref.):
Si je comprends bien, le depute demande le consentement unanime pour deposer un document.
Le depute a-t-il le consentement unanime pour deposer le document?
M. Julian Reed (secretaire parlementaire du ministre des Affaires etrangeres, Lib.):
REPONSE DU GOUVERNEMENT A DES PETITIONS
M. Mauril Belanger (secretaire parlementaire de la ministre du Patrimoine canadien, Lib.):
LES COMITES DE LA CHAMBRE
L'hon. Sheila Finestone (Mont-Royal, Lib.):
Nous lui disons merci et au revoir.
PROCEDURE ET AFFAIRES DE LA CHAMBRE
M. Mauril Belanger (secretaire parlementaire de la ministre du Patrimoine canadien, Lib.):
JUSTICE ET DROITS DE LA PERSONNE
M. John Maloney (Erie-Lincoln, Lib.):
LOI INSTITUANT LA JOURNEE TERRY FOX
Mme Rose-Marie Ur (Lambton-Kent-Middlesex, Lib.):
Les fabricants d'automobiles et les groupes ecologistes s'opposent egalement a son utilisation.
L'hon. Lorne Nystrom (Regina-Qu'Appelle, NPD):
En guise de conclusion, il disent que, pour ces raisons, le Senat devrait etre aboli.
Je suis sur que vous serez d'accord la-dessus, Monsieur le President.
Ce n'est pas a moi d'approuver ou de desapprouver.
Mme Diane Ablonczy (Calgary-Nose Hill, Ref.):
M. Yvan Bernier (Bonaventure-Gaspe-Iles-de-la-Madeleine-Pabok, BQ):
Ils considerent que cette modification a des impacts negatifs majeurs sur leur communaute.
M. David Iftody (Provencher, Lib.):
Monsieur le President, cette petition vient de citoyens du Canada qui habitent ma circonscription, Provencher.
Ils attirent l'attention du Parlement sur ce qui suit:
M. John Solomon (Regina-Lumsden-Lake Centre, NPD):
Les petitionnaires sont tres insatisfaits du Senat.
Ils veulent l'abolir le plus tot possible.
M. Chris Axworthy (Saskatoon-Rosetown-Biggar, NPD):
Je suis heureux de constater que les gens se rejouissent que ce soit ma derniere.
Les petitionnaires exhortent le Parlement a prendre des mesures pour abolir le Senat.
M. Peter Stoffer (Sackville-Musquodoboit Valley-Eastern Shore, NPD):
Monsieur le President, j'ai trois petitions differentes.
La premiere vient de la tres belle region qu'est l'Ile-du-Prince-Edouard.
M. Peter Stoffer (Sackville-Musquodoboit Valley-Eastern Shore, NPD):
M. Peter Stoffer (Sackville-Musquodoboit Valley-Eastern Shore, NPD):
M. Nelson Riis (Kamloops, Thompson and Highland Valleys, NPD):
M. Mauril Belanger (secretaire parlementaire de la ministre du Patrimoine canadien, Lib.):
Monsieur le President, on repondra aujourd'hui aux questions nos 186 et 224.
Question no 186- M. Jason Kenney:
Ce montant comprend toutes les taxes applicables.
Question no 224- Mme Michelle Dockrill:
Monsieur le President, je suggere que les autres questions soient reservees.
M. Mauril Belanger (secretaire parlementaire de la ministre du Patrimoine canadien, Lib.):
LOI CANADIENNE SUR LA PROTECTION DE L'ENVIRONNEMENT (1999)
Les motions seront regroupees de la maniere suivante aux fins du debat.
Les motions nos 6, 7, 137 a 139, 148 a 150.
Les motions nos 8 a 10, 16, 18, 19, 22 a 24 et 47.
Les motions nos 36 a 38, 41, 70 et 73.
Les motions nos 214, 230, 231 et 233.
La Presidence redonnera les details a la Chambre au moment de chaque mise aux voix.
Ce sont les motions du groupe no 1.
qu'il reconnait la necessite de limiter et gerer
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
qu'il reconnait la necessite de proceder a la quasi-elimination
Mme Jocelyne Girard-Bujold (Jonquiere, BQ) propose:
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. Rick Laliberte (Riviere Churchill, NPD) propose:
Pour l'application du paragraphe (1.1),
a ) d'une part, est precisee par les ministres ou prevue par reglement;
Mme Jocelyne Girard-Bujold (Jonquiere, BQ) propose:
a ) d'une part, prevu par reglement ou precise par les ministres;
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. John Herron (Fundy-Royal, PC) propose:
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. Rick Laliberte (Riviere Churchill, NPD) propose:
M. John Herron (Fundy-Royal, PC) propose:
(4), accomplir sa quasi-elimination par l'application du paragraphe 65(3).
(4), l'application du paragraphe 65(3).
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
(4), la realisation de sa quasi-elimination dans le cadre du paragraphe 65(3).
prealable au terme de laquelle la substance est determinee etre toxique:
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
a ) que la substance peut avoir a long terme un effet nocif sur l'environnement,
M. John Herron (Fundy-Royal, PC) propose:
proposer l'application du paragraphe 65(3) relativement a la substance
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. John Herron (Fundy-Royal, PC) propose:
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
Que le projet de loi C-32, a l'article 79, soit modifie
a ) par substitution, aux lignes 18 et 19, page 51, de ce qui suit:
b ) par substitution, aux lignes 28 et 29, page 51, de ce qui suit:
M. John Herron (Fundy-Royal, PC) propose:
M. John Herron (Fundy-Royal, PC) propose:
Que le projet de loi C-32, a l'article 81, soit modifie
a ) par substitution, aux lignes 19 a 22, page 54, de ce qui suit:
b ) par substitution, a la ligne 24, page 54, de ce qui suit:
 a ) s'ils decident que ces conditions sont
c ) par substitution, a la ligne 23, page 54, de ce qui suit:
d ) par substitution, a la ligne 29, page 54, de ce qui suit:
 b ) s'ils decident que ces conditions ne sont plus
in Schedule 2, the Ministers and that other minister may
dans laquelle la mesure prevue applique le paragraphe 65(3) doit preciser les dates
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. John Herron (Fundy-Royal, PC) propose:
relativement a l'application du paragraphe 65(3) et resumant les motifs de cette
L'hon. Andy Mitchell (au nom de la ministre de l'Environnement) propose:
M. John Herron (Fundy-Royal, PC) propose:
Que le projet de loi C-32, a l'article 93, soit modifie
b ) par substitution, a la ligne 9, page 67, de ce qui suit:
mesure d'application de la presente partie;
L'hon. Andy Mitchell (au nom de la ministre de l'environnement) propose:
M. John Herron (Fundy-Royal, PC) propose:
l'article 93 ou d'un arrete pris
L'hon. Pierre S. Pettigrew (au nom de la ministre de l'Environnement) propose:
Que le projet de loi C-32, a l'article 100, soit modifie
a ) par substitution, a la ligne 16, page 74, de ce qui suit:
b ) par substitution, a la ligne 19, page 74, de ce qui suit:
fortement restreinte au Canada sous le regime d'une
inscrite aux parties 1 et 2 de la Liste des substances d'exporta-
te aux parties 1 et 2 de la Liste des substances d'exportation
Plus de 400 amendements ont ete proposes a l'etape de l'etude en comite.
On en compte maintenant 236 a l'etape du rapport.
Je parlerai de l'application de la quasi-elimination.
Toutefois, ce projet de loi souleve une difficulte de quantification.
L'industrie a besoin de balises.
Elle saura ainsi ou elle s'en va.
Or, le projet de loi parle de quasi-elimination, sans preciser de teneur precise.
L'Allemagne, par exemple, utilise des chiffres.
Un temoin a fait une observation tres pertinente devant le comite.
C'est tout simplement un obstacle a l'investissement dans ce pays.
Un grand nombre de motions ont le meme objectif que les notres.
C'est d'ailleurs pour cela qu'elles ont ete regroupees.
C'est a mon avis un point crucial.
Elle devrait remplir les obligations prevues dans la convention.
Elle ne devrait pas depasser les mesures fixees a l'origine par le gouvernement.
Nous sommes d'accord avec cela.
L'expression strictement reglementees est clairement definie dans la convention.
Actuellement, le projet de loi ne fait etat d'aucune bonne raison.
La reputation du Canada en tant que leader mondial risquerait d'y perdre des plumes.
Je conclus sur ce point.
Mme Paddy Torsney (secretaire parlementaire de la ministre de l'Environnement, Lib.):
Certains amendements visent les produits de la biotechnologie de meme que l'application administrative.
Neuf de ces substances, dont le DDT, sont interdites au Canada.
Il existe 23 000 substances en vente au Canada.
Pourquoi faisons-nous cela?
Un bel exemple de cela est l'insecticide DDT, que j'ai mentionne plus tot.
Il a ete introduit au Canada dans les annees 40.
La technologie existe-t-elle?
Faut-il elaborer autre chose?
La quasi-elimination de ces substances sur-le-champ ne sera donc pas toujours possible.
Le projet de loi reconnait le besoin de se pencher sur toutes ces questions.
Il s'agit d'une approche logique.
Le depute d'en face a parle de la toxicite intrinseque.
Passons maintenant aux exportations controlees.
Cet article concerne l'intendance.
Le projet de loi tient compte de cette politique.
Les amendements du gouvernement ont corrige ce probleme.
La definition donnee maintenant dans le projet de loi est claire et credible.
Parlons des amendements proposes par les progressistes conservateurs.
Le projet de loi a l'etude permet de realiser des gains importants.
L'objectif de la quasi-elimination serait ainsi impossible a atteindre.
La definition du projet de loi resterait sans disposition d'application correspondante.
Nous ne sommes pas prets a cela.
Cela limite la portee des articles qui traitent de l'exportation de substances toxiques.
Le projet de loi vise la bonne intendance de l'environnement.
Il concerne la prevention de la pollution.
Mme Jocelyne Girard-Bujold (Jonquiere, BQ):
Cette experience fut pour moi tres deconcertante, pour ne pas dire autre chose.
On se retrouve donc avec une loi inachevee pour les 10 prochaines annees.
On ne refait pas un tel processus a tous les ans.
Nous, du Bloc quebecois, voulions faire cet exercice.
Voici plusieurs exemples qui illustrent notre bonne volonte dans ce dossier.
Tout d'abord, la participation du public: quel beau discours.
Quand va-t-on analyser les nouvelles?
Comment va-t-il pouvoir le faire?
Il a coupe les budgets du ministere qui furent amputes de plusieurs millions de dollars.
Il faut se rappeler certains faits.
C'etait une promesse du livre rouge liberal.
Ce projet de loi ouvre la porte aux dedoublements entre les pouvoirs federaux et provinciaux.
Une nouvelle definition de la quasi-elimination est prevue a l'article 65.(1).
Il faut eliminer un terme qui n'a pas ete defini dans la loi.
J'espere que le gouvernement va voter en faveur.
M. Rick Laliberte (Riviere Churchill, NPD):
Si tout s'arretait la, nous serions dans un beau petrin.
Telle est la portee de cette loi.
La pollution a fait son chemin dans notre organisme.
C'est pourquoi nous devons adopter une loi tres ferme.
Au cours de la premiere ronde, la lutte contre la pollution etait l'objectif cle.
Jusqu'a maintenant, plus de 800 amendements ont ete presentes.
De nombreux amendements etaient repousses ou acceptes.
Nous nous sommes attaches aux mesures de prevention de la pollution.
Nous avons etudie certaines possibilites d'y apporter des ameliorations.
Nous avons reussi en comite a faire remplacer l'expression mesures efficientes par mesures effectives.
L'expression mesures efficientes ne tenait pas compte des questions de sante.
Ces couts ne sont pas pris en consideration.
L'industrie a manifestement mis le hola.
Elles repondent aux besoins de l'industrie et tiennent compte des couts pour l'industrie.
Quasi est un mot insaisissable.
Cela ne represente pas tout a fait la realite.
Ce n'est pas tout a fait ce qu'on veut.
Le gouvernement n'a pas pu faire mieux que de parler de quasi-elimination.
Nous avons vecu cette etape de quasi-elimination.
Nous avons accepte ce qu'elle signifie.
Il faudra parvenir a realiser la quasi-elimination.
M. John Herron (Fundy-Royal, PC):
Cela fait un total de pres de 700 amendements.
Nous sommes sur le point de deposer un sous-amendement.
Nous avons maintenant deux niveaux de quasi-elimination a etablir et a mettre en oeuvre.
Le libelle actuel ne dit pas clairement lequel donnerait la quantite acceptable.
Le but ultime est de tomber en deca de cette limite.
Mes amendements et les amendements du Parti progressiste conservateur rendent le processus plus clair.
Ils peaufinent les modifications appuyees en comite par le gouvernement et le Parti reformiste.
Toutefois, ils ont tous deux reconnu que le libelle original etait preferable.
Mes collegues reconnaitront que mon amendement est plus logique.
Ce sont ces ministres qui connaissent le mieux leurs lois.
C'est le but que vise mon amendement.
Cet amendement ne permettra pas de le faire.
Je sais que cet amendement n'inquiete pas particulierement l'industrie.
M. Rick Casson (Lethbridge, Ref.):
Comme l'ont dit d'autres deputes avant moi, ce fut tout un exercice.
Ca ne finit plus.
Le Canada doit demeurer en accord avec les autres pays du monde.
Nous devons respecter certaines des obligations internationales que nous avons convenu d'honorer.
C'etait une scene interessante a voir.
Il est deplorable que cela ait pu se passer.
Les deputes de notre parti ont assiste au plus grand nombre de reunions possible.
Selon le compte rendu, nous avons assiste a la plupart des reunions.
Nous etions la et nous avons participe au debat.
La declaration et le preambule prevoient notamment:
Le developpement durable est un important element de tout projet de loi environnemental.
C'est un principe auquel nous souscrivons pleinement.
Ces substances vont etre utilisees.
Il faut les utiliser.
On est generalement d'accord pour aller dans la meme direction.
Ce sera tres interessant quand nous etudierons tout cela.
Il est important de voir comment elles sont groupees.
L'autre question est la toxicite intrinseque.
Les amendements presentes par le Parti reformiste et le gouvernement touchent egalement cette question.
Nos propositions remedieraient a cette situation.
La motion ministerielle no 88 porte sur la meme preoccupation.
Cependant, cet amendement ne va pas assez loin.
L'hon. Charles Caccia (Davenport, Lib.):
Le depute de Lethbridge a utiliser des mots interessants.
Mais, chef de file en quoi?
Elle l'a decrit en utilisant des termes tres positifs.
Les mots production et utilisation sont importants.
Nous les avons ajoutes lors de l'examen en comite.
Avant, c'etait eliminer progressivement la production.
Par consequent, il faut s'opposer a cet amendement.
L'amendement propose par le gouvernement pose une condition prealable.
C'est pourquoi j'exhorte les deputes a voter contre cet amendement.
La motion no 88 concerne la toxicite intrinseque.
Cet amendement devrait donc etre rejete.
Il est ici question de substances tres dangereuses.
Mme Helene Alarie (Louis-Hebert, BQ):
Le comite en a adopte 160.
Ce qui amene comme resultat un projet de loi incoherent a plusieurs egards.
Voila le point majeur qui demande des amendements.
Sinon, la situation, plutot que de s'ameliorer, va se deteriorer.
On parle ici des articles 104 a 115.
Cela veut dire quoi?
Ou en sommes-nous dans le crucial dossier des biotechnologies?
Qui s'engage a faire de l'education aupres de la population?
Quand aborderons-nous la question de l'etiquetage?
Je parle ici du controle de la pollution eau-terre-air en milieu agricole.
Il est donc facile de corriger des situations deficientes.
Ce portrait agroenvironnemental va s'etendre a d'autres secteurs d'activites agricoles.
C'est un exemple de responsabilisation unique de ce milieu qui porte deja fruit.
M. Clifford Lincoln (Lac-Saint-Louis, Lib.):
Monsieur le President, dans toute loi, les mots ont une puissante signification.
Ma premiere reserve d'importance concerne ce qu'on appelle la toxicite intrinseque.
Il y a la une enorme difference par rapport au critere actuel.
Mon deuxieme grand sujet de preoccupation a trait a la quasi-elimination des substances toxiques.
Le gouvernement veut maintenant modifier une disposition qu'il a etablie.
Voici notamment ce qu'ils avaient a dire:
...la loi pourrait forcer la fermeture de toutes les alumineries au Canada.
Il s'agit effectivement d'une tactique entierement fondee sur la peur.
Si cette affirmation n'etait pas si triste, ce serait une farce.
Le ministere de l'Environnement fait partie du comite de l'union economique du Cabinet.
Ce dossier a occupe une partie importante de mon temps depuis mon election en 1993.
J'espere qu'il ne changera pas.
LOI SUR L'OFFICE D'INVESTISSEMENT DES REGIMES DE PENSIONS DU SECTEUR PUBLIC
PROJET DE LOI C-78-AVIS DE MOTION CONCERNANT L'ATTRIBUTION DE TEMPS
L'hon. Don Boudria (leader du gouvernement a la Chambre des communes, Lib.):
LA LOI CANADIENNE SUR LA PROTECTION DE L'ENVIRONNEMENT DE 1999
M. Peter Stoffer (Sackville-Musquodoboit Valley-Eastern Shore, NPD):
Je crains cependant que le gouvernement n'impose la cloture a ce debat-la egalement.
Ce doit surement etre un record.
Et je le dis en toute sincerite.
Quand je l'ai lue l'autre jour, je n'en croyais pas mes yeux.
On y mettait en garde les lecteurs contre le projet de loi C-32.
Pourquoi ce secteur s'opposerait-il a tout genre de protection de l'environnement?
Il a ete extremement long.
Il y a eu certains echanges muscles, et d'autres fort longs.
Le NPD a propose 100 amendements.
C'est notre record.
C'est un conseil tres sage.
Il a ajoute que c'etait la un des defis que devait relever son ministere.
Le gouvernement a propose le projet de loi C-32.
C'etait un beau gachis lorsqu'il a ete renvoye au comite.
Ce dernier, dans sa grande sagesse, a propose 800 amendements.
C'est un bon point de depart pour l'avenir de la planete.
Que dirons-nous a nos enfants?
Que leur diront-ils?
Nous vivons bien maintenant, mais qu'en sera-t-il de nos enfants?
Si nous ne pouvons penser a l'avenir de nos enfants, que faisons-nous ici?
Ce n'est pas n'importe quel projet de loi.
C'est le plus important projet de loi dont est saisie la Chambre.
C'est ce que rapportait le Globe and Mail il y a quelques annees.
Sans l'environnement, ces gens-la ne seraient rien.
Ce devrait etre l'inverse.
J'en appelle instamment a tous les deputes et je les exhorte a bien reflechir.
Nous ne sommes que de la chair, des os et des mineraux.
Nous ne sommes rien de plus.
Si nous ne pouvons pas penser en ces termes, nous sommes condamnes a long terme.
C'est de la bouillie pour les chats.
Je suis desole, mais le depute a parfaitement raison.
Ce n'est qu'une menace dont nous ne devons tenir aucun compte.
J'utiliserai le temps qui me reste pour remercier quelques personnes pour leurs efforts.
Il y en a bien d'autres que je pourrais mentionner.
Monsieur le President, j'invoque le Reglement.
Le depute d'en face vient de citer des extraits du Globe and Mail ...
Le president suppleant (M. McClelland):
Mme Karen Kraft Sloan (York-Nord, Lib.):
Je peux en attester.
Dans cette enceinte, nous sommes les representants elus d'un pays libre et democratique.
C'est un honneur et une responsabilite qu'il nous faut prendre au serieux.
Le projet de loi C-74 de 1996 allait dans le meme sens.
Reveillez-vous, les gars!
Il ne fait que contribuer au developpement durable.
Ce n'est pas un projet de loi sur le developpement durable.
Elles visent a une utilisation reduite plutot que de s'interesser seulement aux rejets.
La prevention de la pollution est une politique etablie du gouvernement.
Le president suppleant (M. McClelland):
M. Bernard Bigras (Rosemont, BQ):
Aujourd'hui, je suis fier de participer a ce debat.
Il y a quelques mois, il y a eu des declarations que je jugerais fracassantes.
Ce rapport mettait justement en relief ce manque de ressources a la disposition des enqueteurs.
Cela est deplorable si nous voulons fondamentalement assurer une meilleure protection de l'environnement.
Le projet de loi C-32 contient aussi un certain nombre de nouveaux elements.
D'autre part, le ministre...
Je regrette d'interrompre l'honorable depute, mais le temps est expire.
Quand le debat reprendra, il lui restera deux minutes pour completer ses remarques.
Monsieur le President, j'invoque le Reglement.
Quelque chose me preoccupe vivement.
Je crains qu'il ne s'agisse pas d'un rappel au Reglement.
La disposition pertinente est l'article 43 du Code criminel qui se lit comme suit:
Ces soi-disant protecteurs des enfants n'ont rien compris.
L'article 43 etablit l'equilibre approprie.
La cause sera entendus d'ici quelques mois.
Ce serait un deshonneur pour notre systeme judiciaire.
Ce serait un drame.
Nous croyons que ce devrait etre la un dernier recours.
S'il defend avec vigueur l'article 43, nous l'emporterons.
La montee de la violence au cours de la derniere decennie en temoigne.
C'est pourquoi j'ai propose cette motion.
J'en fais ici la lecture:
Y a-t-il consentement unanime pour que la motion soit reputee approuvee et adoptee?
Nous pourrions entendre aujourd'hui de la part des divers deputes.
Cet argument repose sur l'hypothese que l'enfant imitera son pere et sa mere.
Voila la question que ces specialistes se posent.
Le debat peut devenir tres complexe.
Il est clair que les specialistes ne s'entendent pas sur toutes ces questions.
Ont-ils une incidence positive ou negative?
Des etudes signalent des effets negatifs et d'autres, une incidence positive.
Il a analyse 35 articles pertinents.
Il a observe des effets positifs lorsque le chatiment corporel etait utilise sans severite abusive.
Y a-t-il consentement unanime pour que la motion soit adoptee d'office?
M. Ted McWhinney (Vancouver Quadra, Lib.):
J'y reviendrai un peu plus tard.
Il importe de souligner plusieurs points cles.
Il y a une continuite dans le processus legislatif.
Il est tres rare qu'ils qualifient categoriquement quelque chose d'absolument illegal.
Il s'agit d'une loi ordinaire.
Ce n'est pas une loi constitutionnelle.
Il n'y avait pas beaucoup de constitutionnalistes parmi eux.
Sous sa forme actuelle, la disposition de derogation est une question prealable.
Elle s'adresse aux gouvernements qui presentent une nouvelle loi.
Ce serait un pas en arriere.
L'ensemble du milieu juridique peut proposer des modifications.
Ce serait manquer de courtoisie.
Ce serait, dans un sens tres large, inconstitutionnel.
Nous croyons que cet article resistera a une contestation.
Le gouvernement est determine a le defendre devant les tribunaux.
Je remercie encore une fois le depute de son intervention.
M. Peter MacKay (Pictou-Antigonish-Guysborough, PC):
Y a-t-il un besoin pressant pour pareille motion?
On pourrait en debattre longtemps.
Dans toute sa sagesse, le Parlement a adopte cet article du Code criminel.
La jurisprudence confirme que cet article a ete defendu.
Je ne crois pas que l'article 43 soit menace a ce stade-ci.
La difference est assez claire selon moi a l'heure actuelle.
On concoit que cette question suscite des preoccupations.
M. Gordon Earle (Halifax-Ouest, NPD):
Et qui dit au juste l'article 43 du Code criminel?
Il traite de la discipline des enfants.
La regle a suivre ici parait simple: la mesure raisonnable dans les circonstances.
Nous nous opposons a cette motion.
Il y a tout lieu d'abolir cette disposition, pas de la proteger.
Nous ne frappons pas les adultes pour les corriger.
On peut parler de toutes les etudes qu'on veut.
Les gens peuvent choisir les etudes qu'ils veulent pour appuyer leur point de vue.
Un electeur de ma circonscription m'a ecrit.
Comment ses parents reagissaient-ils face a son probleme?
Ils lui donnaient la fessee pour le corriger.
C'etait leur strategie.
Au lieu de disparaitre, le probleme a empire.
A cinq ans, il commencait l'ecole.
Il raconte que le directeur le corrigeait.
Il ecrit: Bon sang, que ca faisait mal.
Les fessees de mon pere n'etaient rien a cote de celles-la.
Plus je criais, plus il frappait.
C'est devenu si terrible qu'il a fini par faire dans son pantalon.
Il a ensuite recu une correction pour avoir urine dans son pantalon.
Tout cela etait sanctionne en vertu du Code.
Cela a continue ainsi jusqu'a la fin de la premiere annee.
Puis il est passe en deuxieme annee.
La meme chose s'est produite.
Il a ete frappe presque tous les jours.
Qu'est-ce qui est raisonnable ou non? C'est une question d'interpretation.
Pendant quatre ans, cet enfant a ete battu de 300 a 400 fois.
C'est devenu chez lui une habitude bien ancree.
Voila les consequences que cette discipline et ces methodes ont eues pour lui.
Bien sur, il faut un peu plus de travail.
Aimerions-nous que quelqu'un nous empoigne et nous donne la fessee?
Certains aimeraient peut-etre cela.
C'est de cela que nous parlons.
Nous devons chercher d'autres moyens pour discipliner nos enfants.
Si le depute de Wanuskewin prend la parole maintenant, cela mettra fin au debat.
M. Maurice Vellacott (Wanuskewin, Ref.):
Le depute en a cite quelques affaires sous enquete en Ontario.
On a juge que la majorite des allegations faites en Ontario n'etaient pas fondees.
C'est un peu comme blamer le traitement radiologique pour le cancer.
Le cancer etait deja la.
Elle propose deux sens plausibles que les enfants attribuent a la fessee.
D'abord, c'est l'expression legitime de l'autorite parentale.
Ensuite, ce peut etre un acte d'agression interpersonnelle.
Cela a ete un honneur pour moi de dire quelques mots sur cette motion.
Y a-t-il consentement unanime?
(La seance est levee a 18 h 21.)


text:
        subroutine getpot(etot,nst,rel,alfa,dl,nr,dr,r,r2,
     1                    xntot,phe,ratio,orb,occ,is,
     2                    nel,nl,nm,no,xnj,rpower,xnum,etot2,iuflag)
        implicit real*8 (a-h,o-z)
        parameter (iorbs=33,iside=600)
        parameter (io2=iorbs*(iorbs+1)/2)
        parameter (ijive=io2*(io2+1)/2)
        parameter (lmax=4,ihmax=20,nrmax=4000,ntmax=10,npmax=60)
        dimension dr(nrmax),r(nrmax),r2(nrmax)
        dimension phe(nrmax,iorbs),occ(iorbs)
        dimension is(iorbs),orb(nrmax,iorbs),nl(iorbs)
        dimension nm(iorbs),xnj(iorbs),no(iorbs)
        dimension rpower(nrmax,0:15)
        dimension xq1(nrmax),xq2(nrmax),xq0(nrmax)
        dimension cg(0:6,0:6,0:12,-6:6,-6:6),pin(0:8,0:8,0:16)
        dimension xqj0(nrmax),xqj1(nrmax)
        dimension xqj2(nrmax),xqi0(nrmax)
        dimension xqi1(nrmax),xqi2(nrmax),rsp(2)

        call clebschgordan(nel,nl,cg)
        call getillls(pin)

        ratio1=1.d0-ratio
        do 2100 i=1,nel
          do 2100 k=1,nr
            orb(k,i)=ratio1*orb(k,i)                                     // ***
 2100   continue

        do 2990 i=1,nel

          li=nl(i)
          mi=nm(i)

          jstart=i+1
          if ((xnj(i).lt.0.d0).or.
     1        (occ(i).gt.1.d0).or.
     2        (dabs(alfa).gt.0.001d0)) jstart=i
          do 2990 j=jstart,nel

            if ((occ(i).eq.0.d0).and.(occ(j).eq.0.d0)) goto 2990

            lj=nl(j)
            mj=nm(j)

c  direct coulomb

            lmx=2*li
            if (li.gt.lj) lmx=2*lj

c  l=0 is monopole or spherical term for direct coulomb.  Therefore,
c  when we have occ(i) or occ(j) greater than one, set lmx=0.

            if ((occ(i).gt.1.d0).or.(occ(j).gt.1.d0).or.
     1        (xnj(i).lt.0.d0).or.(xnj(j).lt.0.d0)) lmx=0

            do 2550 la=lmx,0,-2
              lap=la+1
          coeff=dfloat((li+li+1)*(lj+lj+1))/dfloat((la+la+1))**2.d0*
     1          cg(li,li,la,mi,-mi)*cg(lj,lj,la,mj,-mj)*
     2          cg(li,li,la,0 , 0 )*cg(lj,lj,la,0 , 0 )
              if (mi+mj.ne.2*((mi+mj)/2)) coeff=-coeff
              if (i.eq.j) coeff=coeff/2.d0
              coeffi=occ(i)*coeff
              coeffj=occ(j)*coeff
              ri=ratio*coeffi
              rj=ratio*coeffj
              rc=coeff*occ(i)*occ(j)

              xouti=0.d0
              xoutj=0.d0
              do 2500 k=1,nr
                xqi0(k)=dr(k)*phe(k,i)*phe(k,i)/2.d0                     // ***
                xqi1(k)=xqi0(k)*rpower(k,la)                             // ***
                if (rpower(k,lap).ne.0.d0) then                          // ***
                  xqi2(k)=xqi0(k)/rpower(k,lap)                          // ***
                else
                  xqi2(k)=0.d0
                endif
                xouti=xouti+xqi2(k)                                      // ***
                xqj0(k)=dr(k)*phe(k,j)*phe(k,j)/2.d0                     // ***
                xqj1(k)=xqj0(k)*rpower(k,la)                             // ***
                if (rpower(k,lap).ne.0.d0) then                          // ***
                  xqj2(k)=xqj0(k)/rpower(k,lap)                          // ***
                else
                  xqj2(k)=0.d0
                endif
                xoutj=xoutj+xqj2(k)                                      // ***
 2500         continue

              xinti=xqi1(1)
              xintj=xqj1(1)
              xouti=2.d0*xouti-xqi2(1)
              xoutj=2.d0*xoutj-xqj2(1)

              do 2550 k=2,nr

                xinti=xinti+xqi1(k)+xqi1(k-1)                            // ***
                xouti=xouti-xqi2(k)-xqi2(k-1)                            // ***
                vali=xouti*rpower(k,la)                                  // ***
                if (rpower(k,lap).ne.0.d0) vali=vali+xinti/rpower(k,lap) // ***
                orb(k,j)=orb(k,j)+ri*vali                                // ***

                xintj=xintj+xqj1(k)+xqj1(k-1)                            // ***
                xoutj=xoutj-xqj2(k)-xqj2(k-1)                            // ***
                valj=xoutj*rpower(k,la)                                  // ***
                if (rpower(k,lap).ne.0.d0) valj=valj+xintj/rpower(k,lap) // ***
                orb(k,i)=orb(k,i)+rj*valj                                // ***

                etot=etot+rc*(xqi0(k)*valj+xqj0(k)*vali)                 // ***

 2550       continue

            if ((is(i).ne.is(j)).and.
     1          (occ(i).le.1.d0).and.
     2          (occ(j).le.1.d0).and.
     3          (xnj(i).ge.0.d0).and.
     4          (xnj(j).ge.0.d0)     ) goto 2990
            if (dabs(alfa).ge.0.001d0) goto 2990

c  exchange interaction

           lmx=li+lj
           lmin=iabs(mi-mj)
           if ((occ(i).gt.1.d0).or.(occ(j).gt.1.d0).or.
     1        (xnj(i).lt.0.d0).or.(xnj(j).lt.0.d0)) lmin=0
           do 2980 la=lmx,lmin,-2
             lap=la+1

        coeff=dfloat((li+li+1)*(lj+lj+1))/dfloat((la+la+1))**2.d0*
     1               (cg(li,lj,la,-mi,mj)*cg(li,lj,la,0,0))**2.d0
        if ((occ(i).gt.1.d0).or.(occ(j).gt.1.d0).or.
     1      (xnj(i).lt.0.d0).or.(xnj(j).lt.0.d0))
     2     coeff=pin(li,lj,la)/4.d0
              if (i.eq.j) coeff=coeff/2.d0
              coeffi=occ(i)*coeff
              coeffj=occ(j)*coeff
              ri=ratio*coeffi
              rj=ratio*coeffj
              rc=coeff*occ(i)*occ(j)
              xnum2=xnum*xnum

              xout=0.d0
              do 2600 k=1,nr
                xq0(k)=dr(k)*phe(k,i)*phe(k,j)/2.d0                      // ***
                xq1(k)=xq0(k)*rpower(k,la)                               // ***
                if (rpower(k,lap).ne.0.d0) then                          // ***
                  xq2(k)=xq0(k)/rpower(k,lap)                            // ***
                else
                  xq2(k)=0.d0
                endif
                xout=xout+xq2(k)                                         // ***
 2600         continue
              xint=xq1(1)
              xout=2.d0*xout-xq2(1)
              do 2610 k=2,nr
                xint=xint+xq1(k)+xq1(k-1)                                // ***
                xout=xout-xq2(k)-xq2(k-1)                                // ***
                if (xq0(k).ne.0.d0) then                                 // ***
                  val=xout*rpower(k,la)                                  // ***
                  if (rpower(k,lap).ne.0.d0) val=val+xint/rpower(k,lap)  // ***
                  etot=etot-2.d0*xq0(k)*rc*val                           // ***
                  xx=phe(k,j)/phe(k,i)                                   // ***
                  if (dabs(xx)/xnum.gt.1.d0) then                        // ***
                    orb(k,i)=orb(k,i)-rj*xnum2/xx*val                    // ***
                  else
                    orb(k,i)=orb(k,i)-rj*xx*val
                  endif
                  xx=phe(k,i)/phe(k,j)                                   // ***
                  if (dabs(xx)/xnum.gt.1.d0) then                        // ***
                    orb(k,j)=orb(k,j)-ri*xnum2/xx*val                    // ***
                  else
                    orb(k,j)=orb(k,j)-ri*xx*val                          // ***
                  endif
                endif
 2610         continue

c Alternative
c savings:
c *: 2 + 2 from 8
c /: 2 + 1 from 7
c              rjxnum2 = rj * xnum2
c              rixnum2 = ri * xnum2
c              etotpart = 0
c              xnumover = 1.0d0 / xnum
c              do 2610 k=2,nr
c                xint=xint+xq1(k)+xq1(k-1)
c                xout=xout-xq2(k)-xq2(k-1)
c                if (xq0(k).ne.0.d0) then
c                  val=xout*rpower(k,la)
c                  if (rpower(k,lap).ne.0.d0) val=val+xint/rpower(k,lap)
c                  etotpart = etotpart - xq0(k) * val
c                  xx = phe(k,i) / phe(k,j)
c                  if (dabs(xx) .lt. xnumover) then
c                    orb(k,i) = orb(k,i) - rjxnum2 * xx * val
c                  else
c                    orb(k,i) = orb(k,i) - rj / xx * val
c                  endif
c                  if (dabs(xx) .gt. xnum) then
c                    orb(k,j) = orb(k,j)- rixnum2 /xx*val
c                  else
c                    orb(k,j) = orb(k,j)-ri*xx*val
c                  endif
c                endif
c 2610         continue
c              etot = etot + 2.0d0 * etotpart * rc

 2980      continue

 2990   continue
c
c  here we compute the charge density, if needed, for treating
c  exchange/correlation in a local fashion...
c
        if (dabs(alfa).ge.0.001d0) then
          if (alfa.gt.0.d0) then
            fx=1.0d0
            fc=1.0d0
          else
            fx=1.5d0*dabs(alfa)
            fc=0.0d0
          endif
c
c  note: we don't deal with spin-polarization in local exchange
c  picture, since local exchange is totally wrong for such
c  effects, anyway.  local exchange pretends charge density
c  is paramagnetic.  also, local exchange treats everything
c  as spherical.
c
          fourpi=16.d0*datan(1.d0)
          do 5000 i=1,nr
            xn=0.d0
            do 3200 j=1,nel
              xn=xn+phe(i,j)*phe(i,j)*occ(j)
 3200       continue
            xn1=xn/2.d0
            xn2=xn/2.d0
            nst=2
            call exchcorr(nst,rel,r2(i),xn1,xn2,ex,ec,ux1,ux2,uc1,uc2)
            exc=fx*ex +fc*ec
            uxc=fx*ux1+fc*uc1
            etot=etot+dr(i)*xn*exc
            do 3300 j=1,nel
              orb(i,j)=orb(i,j)+uxc*ratio
 3300       continue
 5000     continue
        endif
c
        do 9000 i=1,nr
        if (iuflag.ne.0) then
          jj=1
 8960     ii=jj
 8965     if (ii.eq.nel) goto 8970
          icond=0
          if ((no(jj).eq.no(ii+1)).and.(nl(jj).eq.nl(ii+1))
     1      .and.(iuflag.eq.2)) icond=1
          if ((no(jj).eq.no(ii+1)).and.(nl(jj).eq.nl(ii+1))
     1      .and.(is(jj).eq.is(ii+1)).and.(iuflag.eq.1)) icond=1
          if (icond.eq.1) then
            ii=ii+1
            goto 8965
          endif
 8970     orba=0.d0
          div=0.d0
          do 8980 k=jj,ii
            div=div+occ(k)
            orba=orba+orb(i,k)*occ(k)
 8980     continue
          if (div.ne.0.d0) then
            orba=orba/div
            do 8990 k=jj,ii
              orb(i,k)=orba
 8990       continue
          endif
          if (ii.ne.nel) then
            jj=ii+1
            goto 8960
          endif
        endif
 9000   continue
        return
        end

ext: for


PROGRAM main

  USE mo_kind,     ONLY: dp, i4
  USE mo_utils,    ONLY: ne
  USE mo_cfortran, ONLY: fctest ! sums between two elements in first dimension (multiply with constant)
  use mo_ansi_colors, only: color, c_red, c_green

  IMPLICIT NONE

  INTEGER(i4), PARAMETER :: d1 = 5
  INTEGER(i4), PARAMETER :: d2 = 4
  INTEGER(i4), PARAMETER :: n1 = 2
  INTEGER(i4), PARAMETER :: n2 = 3

  REAL(dp), DIMENSION(d1,d2) :: A

  REAL(dp), parameter :: c=2.0

  INTEGER(i4) :: i, j
  CHARACTER(LEN=30) :: form1
  logical :: isgood

  isgood = .true.

  forall(i=1:d1, j=1:d2) A(i,j) = real(i**j,dp)

  write(form1,"(A,I3,A)") "(", d1, "f5.0)"
  do j=1, d2
     write(*,form1) A(:,j)
  end do

  ! Beware C-indexes start with 0
  ! Also C is colunm-major so that one wants to transpose A, perhaps
  write(*,'(A,2f6.1)') 'sum(A(2+1:3+1,1)*2 = (3+4)*2 = 14: ', fctest(A, n1, n2, c), sum(A(n1+1:n2+1,1)*c)
  write(*,'(A,2f6.1)') 'sum(A(1,2+1:3+1)*2 = (1+1)*2 =  4: ', fctest(transpose(A), n1, n2, c), sum(A(1,n1+1:n2+1)*c)

  if (ne(fctest(A, n1, n2, c), 14.0_dp)) isgood = .false.

  if (isgood) then
     write(*,*) 'cfortran ', color('o.k.', c_green)
  else
     write(*,*) 'cfortran ', color('failed!', c_red)
  endif

END PROGRAM main


text:
! DART software - Copyright UCAR. This open source software is provided
! by UCAR, "as is", without charge, subject to all terms of use at
! http://www.image.ucar.edu/DAReS/DART/DART_download
!
! $Id$

program html_namelist

implicit none

! Interactive creation of html for namelist documentation for DART
integer :: num, num_args, i, max_len, len, j
character(len = 299) :: c1, c2, function_name, function_type, spaces
character(len = 299), allocatable :: arg_name(:), arg_type(:)

write(22, *) ''
write(22, *) ''

spaces = '                                                                      '

! Put in the standard header stuff
write(22, *) ''
write(22, *) '
[top]

'
write(22, *) '
NAMELIST
'
write(22, *) '
'
write(22, *) 'This namelist is read from the file input.nml.'
write(22, *) 'Namelists start with an ampersand'
write(22, *) "'&' and terminate with a slash '/'."
write(22, *) "Character strings that contain a '/' must be"
write(22, *) 'enclosed in quotes to prevent them from'
write(22, *) 'prematurely terminating the namelist.'
write(22, *) '
'
write(22, *) "
"
write(22, *) "
"

! Now write the namelist sequence
write(*, *) 'input the number of namelist entries'
read(*, *) num_args
allocate(arg_name(0:num_args), arg_type(0:num_args))
write(*, *) 'input the namelist name'
read(*, *) arg_name(0)

! Write out the namelist start
write(22, *) '&' , trim(arg_name(0))

! Loop to read in the argument names
do i = 1, num_args
   write(*, *) 'input namelist entry ', i, ' as name = value '
   read(*, 31) c1
   read(c1, *) arg_name(i)
   write(22, *) '   ' // trim(c1) // ', '
end do

write(22, *) '/'
write(22, *) '

'

write(22, *) '
'
write(22, *) 'put in any general namelist discussion information'
write(22, *) '
'
write(22, *) '

'

! Prepare the table header
write(22, *) '
'
write(22, *) '
'
write(22, *) '
'
write(22, *) '
 Item 	'
write(22, *) '     Type 	'
write(22, *) '     Description 	'
write(22, *) '
'
write(22, *) ''
write(22, *) '
'
do i = 1, num_args
   write(*, *) 'input the type for ', trim(arg_name(i))
   read(*, *) arg_type(i)
end do
do i = 1, num_args
   write(*, *) 'input description for ', trim(arg_name(i))
   read(*, 31) c1
   31 format(a299)

   write(22, *) '
 ' // trim(arg_name(i)) // ' 	'
   write(22, *) '     ' // trim(arg_type(i)) // ' 	'
   write(22, *) '     ' // trim(c1) // ' 	'
   write(22, *) '
'
end do

! Write the end of the table
write(22, *) '
'
write(22, *) '
'
write(22, *) '
'

write(22, *) '

'

write(22, *) ''

write(*,*) 'output file is fort.22 -- move or rename before running program again'

end program html_namelist

! <next few lines under version control, do not edit>
! $URL$
! $Id$
! $Revision$
! $Date$

max_stars_repo_name: hkershaw-brown/feature-preprocess

max_issues_repo_name: hkershaw-brown/feature-preprocess

max_forks_repo_name: hkershaw-brown/feature-preprocess


text:
 SUBROUTINE rubberps(pr,lb,model,stre,vec,r1,r2)

 ! calculates stiffness and stresses for rubber and elastomeric
 ! foam materials

 IMPLICIT NONE
 ! DUMMY arguments
 REAL(kind=8), INTENT(IN):: pr(12)    !(12) material constants
 REAL(kind=8), INTENT(IN OUT):: lb(3) !(3)  Principal stretches Eigenvalues of U
 INTEGER(kind=4), INTENT(IN) :: model   !Model
                                !1:      Arruda-Boyce
                                !2:      Mooney-Rivlin
                                !3:      Neo-Hooke
                                !4:      Ogden (N=1)
                                !5:      Ogden (N=2)
                                !6:      Ogden (N=3)
                                !7:      Polynomial (N=1)
                                !8:      Polynomial (N=2)
                                !9:      Polynomial (N=3)
                                !10:     Reduced Polynomial (N=1)
                                !11:     Reduced Polynomial (N=2)
                                !12:     Reduced Polynomial (N=3)
                                !13:     Van der Waals (not implemented yet)
                                !14:     Yeoh
                                !15:     Hyperfoam (N=1)
                                !16:     Hyperfoam (N=2)
                                !17:     Hyperfoam (N=3)
 REAL(kind=8), INTENT(OUT) :: stre(:)           !  2nd Piola-Kirchhoff stresses S11 S22 S12
 ! optional arguments
 REAL(kind=8), OPTIONAL, INTENT(OUT) :: vec(:)    !elasticity (stiffness) matrix in vector form
 REAL(kind=8), OPTIONAL, INTENT(IN):: r1,r2     ! first eigenvector in-plane components

 ! Local variables
 REAL(kind=8)  :: &
             bet(2),  &     !principal stresses
             lb2(3),lg(3,3),  &     !squared principal strains
             aux,i1,i2,a1,a2,a3,a4,a5,     & ! auxiliar terms
             d(2,2),          & ! first derivatives of invariants
             dd(2,3),         & ! second derivatives of invariants
             c(4),            & ! local elasticity matrix
             r11,r22,r12  !auxiliar rotation terms

 LOGICAL :: ci1, ci2     !  use first and second invariants

 INTEGER(kind=4) nterm,     & ! number of terms (sum) in the model
                 kode,      & ! model
                 i,j,k        ! index and pointers
 INTEGER(kind=4), PARAMETER :: ii(3) = (/ 1,3,6 /)

 !initializes Flags
 ci1 = .TRUE.       !compute I1 invariant derivatives
 ci2 = .FALSE.      !do NOT compute I2 derivatives

 kode        = model
 SELECT CASE (kode)
 CASE (2)  !Mooney-Rivlin
    ci2 = .TRUE.      !compute I2 derivatives
 CASE (4:6)  !Ogden
    nterm = kode - 3 !number of terms to be considered
    ci1 = .FALSE.
 CASE (7:9)  !Polynomial
    nterm = kode - 6 !number of terms to be considered
    ci2 = .TRUE.      !compute I2 derivatives
 CASE (10:12)!reduced polynomial
    nterm = kode - 9 !number of terms to be considered
 CASE (14)   !yeoh
    kode = 12        !reduced polynomial
    nterm = 3        !number of terms to be considered
 CASE (15:17)           !NOTE that isochoric approach is considered
    CALL runen2(' Hyperfoam not implemented for plane stress')
    !nterm = kode - 14 !number of terms to be considered
 END SELECT

 lb(3) = 1d0/(lb(1)*lb(2)) !impose incompresibility

 !  COMPUTE FIRST DERIVATIVES OF THE INVARIANTS IF NECESSARY
 lb2 = lb**2 !eigenvalues of the metric tensor
 IF( ci1 )THEN
   !   first derivatives of I1
   i1 = lb(1)**2+lb(2)**2+lb(3)**2                           !I1
   DO i=1,2
     d(i,1) = 2d0*lb(i)*(1d0-lb2(3)/lb2(i))          !I1,Li
   END DO
   IF( ci2 )THEN
     ! first derivatives of I2
     i2 = 1d0/lb2(3)+lb(3)*2*(lb2(1)+lb2(2))        !I2
     DO i=1,2
       d(i,2) = 2d0/lb(i)*(1d0/lb2(3)-1d0/lb2(i))   !I2,Li
     END DO
   END IF
 END IF

 ! COMPUTE FIRST DERIVATIVE OF THE STRAIN FUNCTION

 SELECT CASE (kode)
 CASE (1) !Arruda-Boyce
   a1 = pr(4)+i1*(pr(5)+i1*(pr(6)+i1*(pr(7)+i1*pr(8)))) !Phi,I1
   bet = a1*d(:,1)

 CASE (2) !Mooney-Rivlin

   bet = pr(1)*d(:,1) + pr(2)*d(:,2)

 CASE (3) !Neo-Hookean
   bet = pr(1)*d(:,1)

 CASE (4:6) !ogden
   bet = 0d0                               !initializes diagonal stresses
   k = 1                                   !pointer to properties array
   DO j=1,nterm                            !for each term
     a1 = pr(k+1)                          !exponent alpha
     lg(:,j) = lb**a1                      !l1^alpha_i
     bet = bet + pr(k)*(lg(1:2,j) - lg(3,j))
     k = k+2
   END DO
   bet = bet/lb(1:2)

 CASE ( 7: 9) !polynomial model
   i1 = i1 - 3d0   !I1 - 3
   i2 = i2 - 3d0   !I2 - 3
   a1 = pr(1)      !initializes Phi,I1
   a2 = pr(2)      !initializes Phi,I2
   IF( nterm > 1 )THEN
     a1 = a1+2d0*pr(3)*i1 +     pr(4)*i2          !Phi,I1
     a2 = a2+    pr(4)*i1 + 2d0*pr(5)*i2          !Phi,I2
   END IF
   IF( nterm > 2 )THEN
     a1 = a1+3d0*pr(6)*i1*i1 +2d0*pr(7)*i1*i2+    pr(8)*i2*i2 !Phi,I1
     a2 = a2+    pr(7)*i1*i1 +    pr(8)*i1*i2+3d0*pr(9)*i2*i2 !Phi,I2
   END IF
   bet = a1*d(:,1) + a2*d(:,2)

 CASE (10:12) !Reduced polynomial
   i1 = i1 - 3d0          !I1 -3
   a1 = 0d0                       !initializes Phi,I1
   DO i=1,nterm
     a1 = a1 + pr(ii(i))*i*i1**(i-1)   !Phi,I1
   END DO
   bet = a1*d(:,1)

 END SELECT

 !COMPUTE ELASTICITY MATRIX IF REQUIRED
 IF( PRESENT(vec) ) THEN  !compute tangent elasticity for plasticity

   IF( ci1 )THEN
     ! Second Derivatives of First Invariant
     DO i=1,2
       dd(i,i) = 2d0+6d0*lb2(3)/lb2(i)                !I1,Li,Li
     END DO
     dd(1,2) = 4d0*lb2(3)*lb(3)                       !I1,Li,Lj
     IF( ci2 )THEN
       !  Second Derivatives of Second Invariant
       DO i=1,2
         dd(i,3) = 2d0*(1d0/lb2(3)/lb2(i)+3d0/lb2(i)**2)  !I2,Li,Li
       END DO
       dd(2,1) = 4d0/lb(3)                                 !I2,Li,Lj
     END IF
   END IF

   SELECT CASE (kode)

   CASE (1) !Arruda-Boyce

     a2 = pr(5)+i1*(2d0*pr(6)+i1*(3d0*pr(7)+i1*4d0*pr(8))) !Phi,I1,i2
     DO i=1,2
       c(i) = a1*dd(i,i) + a2*d(i,1)**2
     END DO
     c(3) = a1*d(2,1) + a2*d(1,1)*d(2,1)

   CASE (2) !Mooney-Rivlin

     DO i=1,2
       c(i) = pr(1)*dd(i,i) + pr(2)*dd(i,3)
     END DO
     c(3) = pr(1)*dd(1,2) + pr(2)*dd(2,1)

   CASE (3) !Neo-Hookean

     DO i=1,2
       c(i) = pr(1)*dd(i,i)
     END DO
     c(3) = pr(1)*dd(1,2)

   CASE (4:6) !ogden
     c  = 0d0                               !initializes
     k = 1
     DO j=1,nterm                            !for each term
       a1 = pr(k+1)                          !exponent alpha
       a2 = a1-1                             !alpha -2
       aux = (a1+1d0)*lg(3,j)
       c(1) = c(1) + pr(k)*(a2*lg(1,j) + aux ) !DS1/L1
       c(2) = c(2) + pr(k)*(a2*lg(2,j) + aux ) !DS2/L2
       c(3) = c(3) + pr(k)*a1*lg(3,j)          !DS1/L2 = DS2/L1
       k = k+2
     END DO                                      !DS1/L1
     c(1) = c(1)/lb2(1)             !Df1/L1L1
     c(2) = c(2)/lb2(2)             !Df2/L2L2
     c(3) = c(3)*lb(3)              !Df1/L2

   CASE ( 7: 9) !polynomial model
     a3 = 0           !Initializes Phi,I1,I1
     a4 = 0           !Initializes Phi,I1,I2 = Phi,I2,I1
     a5 = 0           !Initializes Phi,I22,I2
     IF( nterm > 1 )THEN
       a3 = 2d0*pr(3)    !Phi,I1,I1
       a4 =     pr(4)    !Phi,I1,I2 = Phi,I2,I1
       a5 = 2d0*pr(5)    !Phi,I22,I2
     END IF
     IF( nterm > 2 )THEN
       a3 = a3+6d0*pr(6)*i1 +2d0*pr(7)*i2  !Phi,I1,I1
       a4 = a4+2d0*pr(7)*i1 +2d0*pr(8)*i2  !Phi,I1,I2 = Phi,I2,I1
       a5 = a5+2d0*pr(8)*i1 +6d0*pr(9)*i2  !Phi,I22,I2
     END IF
     DO i=1,2
       c(i) = a1*dd(i,i) + a2*dd(i,3) &
            + a3*d(i,1)**2 + 2d0*a4*d(i,1)*d(i,2) + a5*d(i,2)**2
     END DO
     c(3) = a1*dd(1,2) + a2*dd(2,1)   &
          + a3*d(1,1)*d(2,1)+a4*(d(1,1)*d(2,2)+d(1,2)*d(2,1))+a5*d(1,2)*d(2,2)

   CASE (10:12) !Reduced polynomial
     a3 = 0d0
     IF( nterm > 1 ) a3 = pr(3)*2d0
     IF( nterm > 3 ) a3 = a3 + pr(6)*3d0*i1
     DO i=1,2
       c(i) = a1*dd(i,i) + a3*d(i,1)**2
     END DO
     c(3) = a1*dd(1,2) + a3*d(1,1)*d(2,1)

   END SELECT

   stre(1:2) = bet*lb(1:2)                    !Kirchhoff stresses

   vec(1) = c(1)*lb2(1) + stre(1)             !DT1/L1
   vec(2) = c(3)/lb(3)                        !DT1/L2 = DT2/L1
   vec(3) = c(2)*lb2(2) + stre(2)             !DT2/L2

 ELSE
   !COMPUTE 2ND Piola Kirchhoff STRESSES IN DIAGONAL FORM
   bet = bet/lb(1:2)
   ! store the stress
   IF( PRESENT(r1) .AND. PRESENT(r2))THEN
     r11 = r1*r1         !factors for stress and matrix computation
     r22 = r2*r2
     r12 = r1*r2
     stre(1) = r11*bet(1) + r22*bet(2)    !(1,1)
     stre(2) = r22*bet(1) + r11*bet(2)    !(2,2)
     stre(3) = r12*(bet(1)-bet(2))        !(1,2)
   ELSE
     stre(1:2) = bet(1:2)
   END IF

 END IF

 RETURN
 END SUBROUTINE rubberps

max_stars_repo_name: jerebenitez/IFE-simpact-openfoam

max_issues_repo_name: jerebenitez/IFE-simpact-openfoam

max_forks_repo_name: jerebenitez/IFE-simpact-openfoam


text:
      subroutine resbact

!!    ~ ~ ~ PURPOSE ~ ~ ~
!!    this subroutine models bacteria in reservoirs

!!    ~ ~ ~ INCOMING VARIABLES ~ ~ ~
!!    name             |units       |definition
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!!    inum1            |none        |reservoir number
!!    inum2            |none        |inflow hydrograph storage location number
!!    res_bactlp(:)    |# cfu/100ml |less persistent bacteria stored in
!!                                  |reservoir
!!    res_bactp(:)     |# cfu/100ml |persistent bacteria stored in reservoir
!!    reswtr           |m^3 H2O     |initial reservoir volume
!!    thbact           |none        |temperature adjustment factor for bacteria
!!                                  |die-off/growth
!!    tmpav(:)         |deg C       |average air temperature on current day
!!    varoute(2,:)     |m^3 H2O     |water flowing into reservoir on day
!!    varoute(18,:)    |# cfu/100ml |persistent bacteria
!!    varoute(19,:)    |# cfu/100ml |less persistent bacteria
!!    wdlpres          |1/day       |Die-off factor for less persistent bacteria
!!                                  |in reservoirs
!!    wdpres           |1/day       |Die-off factor for persistent bacteria in
!!                                  |reservoirs
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

!!    ~ ~ ~ OUTGOING VARIABLES ~ ~ ~
!!    name        |units         |definition
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!!    res_bactlp(:)|# cfu/100ml  |less persistent bacteria in reservoir/outflow
!!                               |at end of day
!!    res_bactp(:) |# cfu/100ml  |persistent bacteria in reservoir/outflow at
!!                               |end of day
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

!!    ~ ~ ~ LOCAL DEFINITIONS ~ ~ ~
!!    name        |units         |definition
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!!    jres        |none          |reservoir number
!!    netwtr      |m^3 H2O       |net amount of water in reservoir during
!!                               |time step
!!    totbactlp   |10^4 cfu      |mass less persistent bacteria
!!    totbactp    |10^4 cfu      |mass persistent bacteria
!!    wtmp        |deg C         |temperature of water in reach
!!    ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~

!!    ~ ~ ~ SUBROUTINES/FUNCTIONS CALLED ~ ~ ~
!!    Intrinsic: Exp, Max
!!    SWAT: Theta

!!    ~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~

      use parm
      implicit none

      integer :: jres
      real*8 :: totbactp, totbactlp, netwtr
      real*8 :: wtmp

      jres = 0
      jres = inum1

      !! calculate temperature in stream
      !! Stefan and Preudhomme. 1993.  Stream temperature estimation
      !! from air temperature.  Water Res. Bull. p. 27-45
      !! SWAT manual equation 2.3.13
      wtmp = 0.
      wtmp = 5.0 + 0.75 * tmpav(jres)
      if (wtmp <= 0.) wtmp = 0.1

!! daily mass balance
      !! total bacteria mass in reservoir
      totbactp = 0.
      totbactlp = 0.
      totbactp = varoute(18,inum2) * varoute(2,inum2)
     &                                        + res_bactp(jres) * reswtr
      totbactlp = varoute(19,inum2) * varoute(2,inum2)
     &                                       + res_bactlp(jres) * reswtr

      !! compute bacteria die-off
      totbactp = totbactp * Exp(-Theta(wdpres,thbact,wtmp))
      totbactp = Max(0., totbactp)
      totbactlp = totbactlp * Exp(-Theta(wdlpres,thbact,wtmp))
      totbactlp = Max(0., totbactlp)

      !! new concentration
      netwtr = 0.
      netwtr = varoute(2,inum2) + reswtr
      if (netwtr >= 1.) then
        res_bactp(jres) = totbactp / netwtr
        res_bactlp(jres) = totbactlp / netwtr
      else
        res_bactp(jres) = 0.
        res_bactlp(jres) = 0.
      end if

      return
      end

ext: f

max_stars_repo_name: GISWAT/erosion-sediment

max_issues_repo_name: GISWAT/erosion-sediment

max_forks_repo_name: GISWAT/erosion-sediment


text:
This store will be out of business starting on February 15th.

Droms Comics and Cards is a large Comics comic, cards and collectibles shop located at the corner of 3rd Street 3rd and G Street inside the Court N Cedar plaza. They also sell videogaming items and roleplaying games. The downtown location makes it perfect for a quick stop for lunch hour Davisites.  Everything is available to order, with a 10% discount for all special orders. Comic shipments arrive  normally before they open but always within an hour of opening  on Wednesdays (barring any holidays or acts of nature), and if you feel like browsing or want to sit to read or play a game, feel free. Droms has enough table space for 40 people, a soda vending machine, and near perfect A/C. There is also a WiFi connection for all of those internet addicts who would be rather irritated without their connectivity fix.

They are currently the only Wizards of the Coast Premiere store in Davis which runs DCI sanctioned events, which means they are the officially endorsed location for tournaments of Wizards of the Coast games offering full promotional access and Prize support from the WPN and WotC such as FNM cards, promotional decks and sets, prerelease events and more. They occasionally host 24hours draft events on the release of a new set. Droms features sanctioned events with full prize support for many games every day, save for Wednesday including Magic, YuGiOh and others.  Droms also has an expansive comic selection for both new and old comics.

Droms has several discount programs: 10% discounts on all comic book savers, free bags and boards and much more. They also have bulk discounts, donations available for schools and other public services as well as special sales throughout the year. Droms also holds monthly Street Fighter IV tourneys as well as a selection of new and used videogaming videogame console accessories including the New Street Fighter IV Round 2 Tournament Sticks. Also included in their discounts program are Reusable Gift Cards Gift Cards which offer a few bonuses for use including special buyer discounts.

Droms has a website (see address info above) updated every week with specials and events including a weekly shipping list.

Weekly Events

Sometimes special events or holidays will take precedence over weekly events so please call to verify your event is still scheduled.

Wednesday

Comic Shipment arrives!

Thursday

Casual Elder Dragon Highlander League Games
Casual Vinatge & Extended Magic Tourneys

Friday

Friday Night Magic at 5:00pm:  $13 Entry includes draft set and additional packs to the prize pool in addition to the FNM Promo Cards.
Droms has also begun alternating Standard FNM tourneys at a reduced fee and varying prizes, call store for weekly information.

Saturday

Magic the Gathering Tournaments @ 1 PM.  Please check our website to see which format we are playing for a particular Saturday. Drafts Every Saturday!

Sunday

Yugioh Tournaments at 2 PM with a $5 entry fee.  Other events vary.  Please check our website for other events.

  Davis has comics and roleplaying games galore, both shops and people who read and play them!
  Videogaming is part of Davis culture

20080811 14:27:48 nbsp I stopped by this store last week and was really impressed with the inventory and the owner (Wes?). I plan to return with my daughter to support this independent downtown business. Welcome to Droms Comics! Users/DrandyJones

20080822 11:24:10 nbsp Im not much of a comic person.  I was back when I was a preteen, but recently had an interest in some of the more artistic and unique stuff as well as some of my secret obsessions (cough Buffy cough).  I came here because it didnt look like one of those overthetop comic places where you feel out of place if you come here during your lunch break dressed in business attire.  And it wasnt.  I had a pleasant time here as I perused the various sections.  I didnt buy anything on my first visit since I was more interested in just looking, but on my second return, Wes had notified me of the 10% discount for frequent buyers.  Such a great deal when you take into account that is the deal get from ordering online, except this way you dont pay shipping, there are no fees for backorders, and youre promoting a new and local business.  Though I dont think Ill be coming here often (college student funds are in short supply), I will be returning when I can.  Heck, it might even be interesting to drop by during one of their card games to see what the craze is all about...as I say, dont knock it till youve tried it. Users/SunjeetBaadkar

20081013 20:57:44 nbsp I first heard about Droms from my friend. so i went there and when i first came in there was a welcoming feeling. it it WAY better than bizzaro world i mean in size comparison bizzaro world tiny Droms Huge. I havent gone back yet but i will be sure to go there many more times because IT IS AWESOME!!!!!!!! Users/windcat88

20081024 11:54:07 nbsp Im not a big fan of this store.  The staff is not nearly as knowledgeable regarding comics as Dan of Bizzaro World (a Davis institution), their back issue stock is mediocre and their selection is unimpressive. Users/rfrazier

 Keep in mind that at this time the store had only been open a few months and stock was still somewhat low. As far as back stock goes, it is difficult to keep them in stock when you offer 25% off all recent back issues. Truth is, we dont want tons of books on our shelves. That, to me, is the sign of a poor business model. Older back issues and sets, I have plenty of those, all very reasonably priced, including signed and variant issues. Add it all up with our discounted saver program, free bags and boards for every comic purchased and I feel the guests at our location end up with a very fine bargain. I would welcome anyone to visit both stores and judge for themselves.  Users/WesOne

20081102 15:23:54 nbsp my friends and i supported Droms even before the first day it officially opened and we NEVER went back to bizarros world after that. The guy that works there (Wes) is awesome, always gives me discount and deals which is why i always come back. Very friendly peoples person. prices for magic/comics are great too! way better compared to bizarros.  Users/CloudFire

20081114 16:37:32 nbsp I never had the problems with Bizarro World that others seemed to, but I have to say that most, if not all, of my business will be going to Droms from now on. The prices are cheaper, the space bigger. Nuff Said.  Users/AlvinTsao

20081202 14:11:39 nbsp Anyone know if this place plays host to RPG sessions and the like?

A friend of mine is writing a ruleset and it would be nice to have some exposure (play there so people can just check it out, and watch a session). Users/MasonMurray

20081206 02:26:50 nbsp Wes is the man. Hes always friendly,and he knows much about comics.He will order any kind of book or comic related item you want.I enjoy Droms shop because of the roomy, uncluttered space along with all the new comics displayed along the walls including graphic novels.Wes will always give a good deal on his items,and he does have some back issue comics that are not trash.Droms also has a Coke machine,so in the words of the great Stan Lee Nuff Said. Users/redbone

20090115 21:55:34 nbsp I went into here today in search of a magic deck, and although they didnt have what I wanted in stock, I was very impressed by the customer service.  I believe Wes was at the register today, and he took time and helped explain to me the many new rules and new types of cards (Ive been out of the game for nearly 56 years now).  Ill be returning soon once they get more of what I was looking for in stock. Users/JimL

20090120 01:31:27 nbsp This is a great comic shop. I went there frequently last school quarter to play magic. Wes, Jenkins, and Mark provided excellent customer service and are really nice guys. All the comic people and card gaming players are chill and I liked going to the events such as magic the gathering extended or draft. Everyone there made the place a nice gaming playground. Now that I have a place to stay again in Davis, Ill be back for sure.  Users/MynameisDennis

20090125 23:42:39 nbsp Its nice to hear that this place was charging the cover price for the barack obama spiderman. Bizarro world wanted me to give them 60 bucks. I say ha screw you I will never shop at bizarro world again. Maybe I will try my luck here now Users/metalhead15

20090128 08:49:58 nbsp i just heard about this store and have since been there many times. the atmosphere is friendly and very relaxed. Wes is always very helpful and knowledgeable about the magic cards. great deals and cards.  Users/michaelrc1999

20090214 11:38:37 nbsp Really good store with friendly staff.  Its not often that you find a place that stays open till about 2am in the morning just to accommodate people playing tourneys.  Lots of space too. Users/Blkspds

20090305 20:45:51 nbsp HMMMM WES???? DONT KNOW IF YOU ARE THE SAME WES I KNEW BACK WHEN I USE TO COME TO BIZZARO WORLD, BUT WELL SEE... I SHOULD DROP BY TOMORROW OR THE NEXT DAY... SOMEONE TOLD ME ABOUT THIS PLACE... WHEN I WAS ASKING WHERE WES WENT BECAUSE I DONT SEE HIM AT BIZZARO WORLD ANYMORE.... ANYWAIES ILL DROP BY TO SAY SUP. AND MAYBE DRAFT A ROUND OF MAGIC WITH YOU.  ITS BEEN A LONG TIME. Users/Apple

20090310 16:37:58 nbsp Not going to lie, the opening of Droms plus the atmosphere singlehandedly got me into playing competitive Magic again. Everyone is really nice, friendly and helpful, and the drafts are smoothly run with one of the best judges in California. I would highly recommend the store to any Magic fan, serious or not. Also Jenkins does a good job at selling singles, cause hes always selling out of things when I need them, which isnt a bad thing and I commend him and Mark on running an excellent business. I hang out here alot and it doesnt matter who you are, if you come in your guarenteed a laugh, smiles, and at the very least something your looking for at affordable prices. The 10% off of Magic singles seems like not much, but it adds up over time. This is my haven.  Users/JulienEpicBubbles

20090320 13:26:33 nbsp This place is absolutely great. I only come in every couple of weeks, but they always address me by name. Theyll back and special order comics at cover price or less ... and they have incredible knowledge of a wide range of comics. Its so nice to buy from people who simply love comics and card. The business naturally comes from their love of the product, not the other way around. Users/jsg718

20090327 23:00:18 nbsp I come here only for the comics, but the card fanatics still provide a friendly and welcoming atmosphere. I had a great first impression with this place because... They Order Everything! New issues of every comic book series I can think of always arrive nice and early. You can also count on getting everything at a low price (they seem to have a LOT of excuses for giving you discounts). And of course, every book you purchase will be put inside a shiny protective cover. Do make sure you show up early every Wednesday though, because this place gets a lot of business and they may run short on stock for some items.  Users/RedPyramid

20090411 18:56:04 nbsp I like buying sodas here because you can get 20oz for a dollar. Grocery stores charge about sixty cents more and so do fast food restaurants, although you get free refills, how many times do you really refill? Users/hankim

20090430 17:08:59 nbsp After years of going to A1 Comics (I had been to Bizarro World once and had had a bad experience), I decided to try Droms today after reading the great reviews here. I also wanted to see how friendly they would be to a female bringing her two young children. It was clean, and fine. I didnt have any wonderful customer experience like some people had, but I didnt have a bad one either. There were two people working there when I went in (around 1:30pm), and there were a couple of people at the tables. No one greeted me when I walked in, or even acknowledged that I was there. I looked around (no one offered to help me find anything), and then I purchased two comics during an almost silent transaction (I wasnt offered comic protectors or anything). All in all it was OK. Nothing great, but nothing bad. Im editing this to add that I just realized that they gave me 10% off each of the comics I bought. Users/RG

20090519 11:16:36 nbsp To RG:  Im very sorry your first experience at Droms wasnt great.  Our goal is not mediocrity, and I hope you come back to give us another shot. Users/JMitchell

20090618 10:37:26 nbsp Since Vacating Davis, I havent been around Droms as often as I had been since its opening, and the great thing about that is, I know my saver is being filled with each discounted issue I have on my Comic Must Have list. (10% off comics in your Saver!!) Also, in having this saver, and talking Comics with Wes, Jenkins and Mark, they often save a copy of a nonlisted comic that they suggest based on what I do save, by Artist (Ian Churchill is so under rated), writer, storylines, etc that I favor. The Atmosphere here is also great, the store really acknowledges the input of its customers/denizens, just as if the regulars at the card tables are also customer service reps. Each Employee is also vast in knowledge in theyre own unique fields. Magic Players (which over power the tcg community; LONG LIVE VS SYSTEM)have a home in Droms because Jenkins and Wes actually know what theyre talking about, not to mention the effort as to make each tcg (trading card games) event as professional as possible. (Check out who the judge is!) Comic enthusiasts are also taking well care of by Wes. Who, try as he must, stays on top of current storylines as to suggest to new/old customers what they should be reading. Then theres Street Fighter, must I continue on that!? Overall, Droms is rapidly becoming a Staple in the Davis Community as your OneStop Nerd Shop (come now, admit to yourself, and join the nerd side) Users/nc69chicano

20090621 19:29:29 nbsp Droms Comics and Cards was on CBS13/CW31 a week ago: http://cbs13.com/video/?id55426@kovr.dayport.com Users/hankim

20090622 09:26:54 nbsp I love this place, has a very friendly and helpfull staff.  Nice large tables to play games, or sit and read comics. Users/DagonJones

20090717 19:00:32 nbsp I had only heard of this place recently after a few years of being out of competitive magic.  Ive got to say I feel comfortable being there, some of the patron base seems to consist of the slow in the head middle school crowd (baggy pant wearing, 5th edition border sharpieing, loves tupac but mysteriously cant sing along with any of it) but the people behind the counter and the atmosphere more than make up for it.  I has the same feel as the end zone and the same quality of employees as Ian.  I havent been in there much but the town seems to have lost a bit of its magic card playing college student base.  Jenkins is a good guy, great job overall crafting this place. Users/OlinHannum

20090821 12:03:22 nbsp The comics I wanted were out of stock, so the owner ordered them up for me no problem.  He took my phone number, which I assumed meant he would call me when they came in.  I never got a phone call, but when I went in a week later to check in on the status, he gave me a ridiculous discount.  Ive since then gone back many times. Users/Alexander.S

20090825 20:04:12 nbsp Does anyone know if they sell warhammer stuff here?  I play WH40K...if you have no idea what Im talking about oh well, but I was just trying to see if anyone plays that up here... Users/vfmac
  Sorry but there are no warhammer miniatures at the store, you have to go to Sacramento for that.  Try Great escape games near Arden.  If you find other players in the area talk to Droms employees, maybe you could set up some games at the store, they have the table space for it.
dagonjones
 Did you find a place? Olde Time Games in Vacaville is set up for playing 40K (as well as fantasy). They also sell supplies, and the staff are great. Users/VivianCosta
 Droms doesnt carry Warhammer stuff as far as I know, but now Bizarro does.  Apparently they have a WFB night the last Thursday of every month and are trying to set up a 40k night as well.  Users/kawende

20090904 10:51:29 nbsp The owners and employees run the business out of love. Its truly a store that cares about its customers, whether theyre there to buy loads of comics or sit around playing games for free. Also, the store regularly has 510 people in it (and this is during the summer, mind you), holds events several times a week, and gives away prizes and such now and then. Best store of its kind in the area. Users/JustinKudo

20091111 14:31:22 nbsp I am a regular here. They have a Saver program in which when your comic book comes in they save a copy for you to pick up. If for some reason your comic wasnt ordered they will sometimes discount your other saved comics which is pleasant, although I would pay full price for my purchases regaurdless. The owners and operators take pride in their store and are always friendly. They try to remember my name although I only come in about once a month or sometimes once every two month. This is how a comic shop should be run. Users/MattSi

20091114 11:25:59 nbsp Droms has lots of space to play card games and as you can see they organize a lot of games.  They also have the legendary Wes.  Wes is a friendly and very interesting guy.  His stories are better than the comics. Users/RichardBruce

20091122 21:32:22 nbsp This store is definitely very lively, it is always packed with people playing card games. If you are a Davis student and you love Magic the Gathering, this is the place to go. Also, this is a good place to indulge on your hobbies, and meet and talk with other people as well who may share your interests.  Users/RuntyTiger

20091226 10:29:38 nbsp I had never really hung out at a comic book store before, and while i probably dont fit the profile of the kind of girl you expect to see there it was fine b/c i didnt have any friends interested in comics anyway. then i met some friends that did and she introduced me to Droms. When i first walked in i didnt feel out of place, it is a welcoming place. the people are friendly and always open to helping you find exactly what you want, even if you dont really know what it is. i noticed it was a safehaven for many misunderstood people and a place where they could do what they love without being judged, i really liked that part. now i stop in all the time to just say hi sometimes and an always greeted with a smile, or at least the ghost of one. Users/JaquiHime

20100123 15:05:59 nbsp 2 bucks all day sf4 with huge high res screen and nice sticks > you Users/StevenDaubert

20100125 00:40:35 nbsp I attended a Grand Prix Trial tournament for Magic: the Gathering at Droms today. It was a fantastic event with 20+ players and a DCI certified Judge from Sacramento. Droms is the best place for premiere sanctioned Magic tournaments in Davis. EDIT: Since some people have found my overly positive review to be suspicious, let me offer some perspective. Ive lived in Davis for 22 years. Ive played Magic for 16. Ive seen about a half dozen comic/card stores rise and fall in town. This is the first time any store in Davis has held an event of this type (only step below a Pro Tour Qualifier), and the success of the tournament hopefully means we will have more to come. Yes, I am damn excited. This is a huge deal for Magic organized play in Davis.Users/Risky

  Even I found it a bit suspicious, but I had a feeling it was you. Users/hankim

20100205 01:52:28 nbsp Ive been getting comics here for quite a while now, and let me just say... my loyalty to this shop is unlikely to change! Regardless of what Im looking for, I can pretty much be sure it will cost me less $ here than at the other shop in town. Its really that simple. Users/RedPyramid

20100219 21:05:24 nbsp I recently sold some of my comic book collection to Droms. I was able to make an appointment with Wes, who came in expressly to appraise my comics. He not only did so, but showed me the whole evaluation, including which ones he wanted, which ones he would accept, and what everything was worth. Its the first time anyone Ive sold comics to has been transparent with me regarding condition and what they would pay versus what they themselves would then try and sell my comics for. That information was verifiable and the honesty on the part of the vendor meant I had no problems selling there, and would do so again.  Users/mnightingale

20100311 09:08:16 nbsp Ive been hearing that starting with PHB3, Wizards is giving Premier stores new sourcebook releases a week or two early.  Is Droms in the premier program, or whatever?  Will they be getting early releases? Users/TomGarberson
  Oh, I see in the store description that its a premier store, answering one of my questions.  Are they getting the early releases? tg

Sorry for the late response, I dont check the Wiki as often as I should.  We can get early releases if thats what our customers would like from us.  Please feel free to call the shop during business hours and we can help to accomodate you.  Users/Jmitchell

20100323 15:15:03 nbsp This place is awesome if your into comics and card games.  This place is usually full of people waiting to play a game of magic, even the employees jump into a few games. This is the place to be if you want to play magic. it doesnt matter if youre new to the game or a competitive player, as theyre plenty of players of different skill levels hanging around. Im not much of a comic guy but i ask for recommendations on whats are good title and i havent been disappointed yet. All in all the store is the one of the better comic and cards shops ive been to in a long time.  Users/chidori612

20100914 21:00:12 nbsp prices are never better. This place kicks bizzaro worlds @$$. The games are SO well priced...zelda for 8 bucks :O. I have spent almost 250 bucks here and have never regretted a cent :) Users/AlexKiani

20110401 15:06:42 nbsp An amazing shop.  Their prices on singles are the best in the area.  They reward the loyal customers they have by keeping items in stock and informing you when they get new stuff they think you will like.  They expand upstairs for larger events.  They are always willing to help you out with your deck.  Staff is honest and prices are fair.  They have won me over. Users/SeanPatch

20110401 17:29:01 nbsp Okay Im sold.  I like coming in here and seeing a room full of my geeky peers.  It just makes my day a little better and I dont get that feeling at Bizzaro.  Does Droms get the Guild comics in when they are new?  Im collecting all the oneshots.... Users/OliviaY

20110510 01:37:51 nbsp If you like comics dont go here! They cater to a very select crowd and new releases for most major titles sell out very quick if you want to get involved with the crew there I suppose they are great but I have had nothing but disapointment there as far as selection of current and past issues.    Users/TravisMartin

20110629 10:54:27 nbsp before i went to work, i walked across this store, and it seems like they have put up a white board similar to the curtains. i dont know if that is part of the store, or if it where the breakin took place. Users/NikhilDahal
   No, those are just the vertical blinds. The damage from the breakin has been repaired.  I went in to see if there was anything I could do to help and there was a bit of cleanup here and there.  The breakin was not helpful, but was definitely not enough to break the store as a lot of their regulars have proven lately... I get along well with a lot of people, including former employers (save one), but these guys are the only ones I have ever liked enough to actually care about.   Users/WesP Wes

20110810 21:44:40 nbsp Walked in here and this place was really great.Bunch of yugioh cards and I now know where I want to spend my money now. Great people and friendly service. Users/eedoan

20110816 16:52:22 nbsp The owners here are awesome and surprisingly the customers too! Im not a big comic/card game kind of guy, but I love the fighting game scene at this shop! This is a haven for nerds like myself!  Users/PaulV

20110920 07:30:08 nbsp This place is alright. The owners know NOTHING about comics though so if youre there to ask for suggestions best to go elsewhere. I remember asking them about Blackest Night a year ago and they looked at me like I was speaking Chinese. The bundle sales are pretty good though and not a lot of people buy comics there so you can probably get some back issues cheap. However, just like Bizzaro, this isnt a comic shop its a magic the gathering shop. Users/CameronMarsh

20111005 08:42:27 nbsp My thought process is Card Games  Droms; Comics/RPG  Bizarro World.  Ive tried Droms on comics a couple times, but it just isnt as good for browsing for new and old titles as Bizarro.  The lack of onsite inventory hurts them on this score.  Droms has the variety of CCG brands (even the Spoils) that Bizarro has in comics and RPGs, without the need to order over the counter. Users/JeffWood

20120706 16:49:38 nbsp What is up with the weird crazy hours and randomly being closed even not on Monday/Tuesday?! Too undependable. Users/gurglemeow

20130720 18:50:30 nbsp Since moving out of Davis, I realized how much cooler Droms is compared to other comic book shops. No more special deals on back issues or free bags and boards at shops in the San Jose area. Users/hankim

20140202 23:36:02 nbsp Im really upset this place is leaving. There wont be any place left in town for FNMs, GPTs, and prereleases. The staff was always friendly and the people were generally just as cool. Users/MilesThomas

20140307 15:29:17 nbsp It might be feasible to set up something (like an fnm) regular somewhere in town like the public library, somewhere on the UCD campus, or elsewhere. It neednt be (although it could) be official through an institution like UCD. Im not wise to the (dis)advantages of such things.

Regardless, a facebook group seems like a good place to start. If you know a lot of players in town (I dont) then feel free to message me at parkerbremer@gmail.com or facebook or some such and well see it we cant start a group on the latter or something

As an aside, I once purchased twenty four boosters from this store (four from one box, twenty from the other) and received a single mythic, a frost Titan. Honestly, thats rather suspicious. I dont like to close my comment on a low note but I had to mention it while I was on the page Users/Pladd

max_stars_repo_name: voflo/Search

max_issues_repo_name: voflo/Search

max_forks_repo_name: voflo/Search


text:
      SUBROUTINE PSTAMG (INPUT,AJJL,SKJ)
C
C     DRIVER FOR PISTON THEORY
C
      INTEGER         SYSBUF,AJJL,SKJ,NAME(2),IZ(1)
      CHARACTER       UFM*23
      COMMON /XMSSG / UFM
      COMMON /ZZZZZZ/ Z(1)
      COMMON /SYSTEM/ SYSBUF,IOUT
      COMMON /PACKX / ITI,ITO,II,NN,INCR
      COMMON /AMGMN / MCB(7),NROW,ND,NE,REFC,FMACH,RFK,TSKJ(7),ISK,NSK
      COMMON /PSTONC/ NNJ,NMACH,NTHRY,NTHICK,NALPHA,NXIS,NTAUS,NSTRIP,
     1                SECLAM
      EQUIVALENCE     (Z(1),IZ(1))
      DATA    NHACPT, NHCOMM,NAME /4HACPT,4HCOMM,4HPSTA,4HMG  /
C
      ICORE = KORSZ(IZ) - 4*SYSBUF
C
C     BRING IN DATA AND ALLOCATE CORE
C
      CALL FREAD (INPUT,NNJ,9,0)
      IDEL = 1
      IB   = IDEL + NSTRIP
      ICA  = IB  + NSTRIP
      IPALP= ICA + NSTRIP
C
C     READ FIXED ARRAYS
C
      NW = 3*NSTRIP
      CALL FREAD (INPUT,Z,NW,0)
C
C     READ ALPHA ARRAY AND STUFF  AT END (INTEGRALS OR TAUS)
C
      IEND = 0
      DO 20 I = 1,NMACH
      CALL FREAD (INPUT,RM,1,0)
      IF (RM .NE. FMACH) GO TO 10
      IEND = 1
      CALL FREAD (INPUT,Z(IPALP),NALPHA,0)
      GO TO 20
   10 CALL FREAD (INPUT,Z,-NALPHA,0)
   20 CONTINUE
      IF (IEND .EQ. 0) GO TO 50
      IPT = IPALP + NALPHA
      CALL READ (*30,*30,INPUT,Z(IPT),ICORE,1,N)
   30 NT = IPT + N
      CALL BUG (NHACPT,30,Z,NT)
      CALL BUG (NHCOMM,30,NNJ,9)
C
C     OUTPUT SKJ
C
      RM  = 1.0
      ITI = 1
      ITO = 3
      II  = ISK
      NSK = NSK + 1
      NN  = NSK
      DO 40 I = 1,NNJ
      CALL PACK (RM,SKJ,TSKJ)
      II  = II + 1
      IF (I .EQ. NNJ) GO TO 40
      NN  = NN + 1
   40 CONTINUE
      ISK = II
      NSK = NN
      ITI = 3
      ITO = 3
      CALL PSTA (Z(IDEL),Z(IB),Z(ICA),Z(IPALP),Z(IPT),AJJL)
      NROW = NROW + NNJ
      GO TO 70
C
C     ERROR MESSAGE
C
   50 WRITE  (IOUT,60) UFM,FMACH
   60 FORMAT (A23,' 2428, MACH NUMBER ',F10.5,' WAS NOT FOUND IN ',
     1       'PISTON THEORY ALPHA ARRAY.')
      CALL MESAGE (-61,0,NAME)
C
   70 RETURN
      END